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Tha  aahaaaad  aaraion  of  tha  Dacialon  Analyaia  Support  lyotaa 
< DABS >  la  a  highly  interactive  ooaputer-aided  daeialen  aaalyata  toel.  It 
autaaatea  tha  method  far  deteraiining  prafaranaaa  whan  aultipln  and 
eaapatlng  attribatea  art  inaelaad.  Worth  aeaeeament  U  naad  aa  tha  model 
which  aealoataa  a  deterainiat lo  hiararchiaal  traa  atruotora.  although 
rink  o»n  ha  eealuatad  by  incorporating  tick  into  tha  trot  or  by 
aondooting  aaaaitlvity  analyaaa. 

Tha  objective  of  thia  work  waa  to  ineorporato  tha  DASS 
(originally  developed  by  Bruoa  V.  Harlan)  onto  a  aieroooaputer  aaing 
PASCAL.  Tha  aaoond  objective  waa  to  aaploit  tha  oolor  graphioa 
capability  on  tha  ai oroeoaputer  ayataa  for  both  input  and  ontpot 
diaplaya.  Tha  final  objective  waa  to  add  capability  to  tha  DASS  by 
adding  additional  eeneltivity  analyaia  aodolaa. 

All  obioetiaaa  wara  not  in  thia  work.  Additional  aiploitalion  of 
tha  computer  graphica.  aa  wall  aa  aona  pra-proeacaing  of  tha  traa 
atrnetora  ara  araaa  ouggaatad  for  farther  aiploratien. 
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ENHANCED  DECISION  ANALYSIS  SUPPORT  SYSTEM 


I  •  Backor ound 


W»,  >i  hunan  beings,  ait  faced  with  many  daeltiont  Iron  the  Hat  we 
awake  in  .ha  earning  until  we  sleep  at  night.  Many  daoiaiona  are  trivial 
in  nature,  each  ai  which  ahirt  to  waar,  or  which  route  to  taka  to  work. 
Othare  arc  acta  eoaplai;  such  aa  which  nait  lob  to  taka  or  what  type  o t 
houaa  to  bug. 

Eatripolating  (roa  tha  paraonai  to  the  oorporate,  daciaicna  have  to 
bo  made  by  Individuals  concarning  a  military  aarvtca  or  a  national 
govarnmant.  Daoiaiona  aoch  aa  whether  or  not  to  boy  tha  MX  aiaaila 
oyetea  or  whether  or  not  to  develop  noelaar  power  am  eoaplai  both  in 
tha  nusber  of  and  tha  variability  of  the  factor!  in  the  deeieion.  Such 
deciviona  can  be  aade  entirely  on  an  ad  hoc,  aaat  ot  tha  panto  batla, 
although  daoiaiona  ao  baaed  could  be  radically  incorrect.  Thua  deeieion 
■akara  are  eaaklng  Methods  and  technique!  which  enables  then  to  reduce 
tha  uncertainty  In  their  decisions  as  wall  as  providing  a  comfortable 
structure  to  work  tn.  One  teohnlque  fa  decision  analysis. 


Decision  Analysis 

Ditlilt*  tniiydi  has  been  available  11  *  tool  (or  ditiilca  Mktu 
ter  about  10  years  (Ref  1:4).  Otclalon  analysis  ta  d*(in*4  an: 


*. . .  a  quant  1 » a 1 1  to  method  which  poraits  tho  systematic 
ooaloatlon  of  tho  eoata  or  bonofit*  accruing  to  coarse* 
of  aotlon*  that  might  bo  takon  In  a  decision  probloa. 

It  ontaila  identification  of  tho  alternative  choieoa 
Involved,  tho  assignment  of  values  ( coata/bonof i ta)  of 
poaaiblo  ooteoaoa,  and  tho  eipresaion  of  tho 
probability  of  thoao  ontooaao  being  roailiod.* 


Ooolaion  analysis  looka  at  a  partionlar  way  a  problem  can  bo  decomposed 
into  identifiablo  elemental  and  ay ataaa 1 1  cal  1 y  evaluates  tho  olomonta  in 
order  for  tho  decision  maker  to  clearly  understand  tho  problem  and  to 
actively  pursue  a  solution  (Raf  1 0  :  v 1 1  > . 

la  using  decision  analysts  as  a  tool  for  decision  making,  a 
particular  paradigm  is  developed  for  the  problem.  Credit  for  tho 
paradigm,  itself,  is  generally  attributed  to  1.  D.  Hall  of  the  Bell 
Telephone  System,  and  consists  of  seven  steps:  problem  definition,  vein:, 
aystem  dealgn,  system  synthesis,  system  analysis,  optimisation,  decision 
making  and  planning  for  action. 

In  tho  problam  definition,  a  general  statement  of  the  current 
situation  Is  defined  as  is  the  future  situation  after  decision 
imp  I  amen t a l I  on .  In  addition,  the  scope  of  the  problem  is  essoined  with 


regard  to  the  stakeholders,  their  specific  needs,  major  constraints  and 


aoctatal  faetori.  Th*  problta  It  thin  partiticnad  intt  raltvant 
alantnta  Thttt  tlaaantt  aoat  !•  rtltaant  to  tht  ■ t tkthol dtr t ,  that  ti 
tht  dtclalon  attar  it  wall  •*  thttt  who  f and  tht  proftot.  Vhtn  tht 
problta  ie  that  dtflntd,  U.t  valot  ifitii  dttlgn  It  inltltttd. 


In  tht  ttlatt  tytita  dttlgn,  tht  obK«tl*tt  ltd  nttiortt  (tr  tht 
jtetlttt  art  dtttltptd  Thttt  abitetlvet  trt  trgtnlttd  Intt  t 
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SUBC?»l 

rigart  I  Objaott**  Tttt 

hltrtrchictl  atroetar#  or  objtctiTt  tr#*  with  tht  ntln  goal  ttop  and 
aupportlng  goal#  at  Ttrlo'i*  branch#*  (Flgort  1). 

Colng  down  tht  ob)#oti#i  trot  antwirt  th#  qoattlon  of  how  tha  aain 
goat  It  to  b#  a  e  coop  t  t  ah#  d  .  Colng  op  th#  objtctiTt  Ira#  amwiri  th# 
quattlon  ot  why  a  particular  goal  n*#dt  to  bt  net.  Colng  laterally 
through  tht  tr#t  for  tha  tin#  lata!  tub-goal  dattralnaa  what  nttdt  to  bt 


- - 


aeceapliahod  Is  (*1(111  the  nest  hlgktt  goal. 

Th  §  rtatinisg  step*  on  various  dselslon  analysis  t  c..  nlquss  I* 
lirlM  it  •  dteislen  sod  thsn  Is  Implement  th*  dsolslon.  On*  tschniqu* 
that  It  u**d  (st  multiple  objective#,  which  act  net  easily  rslst*  t* 
specific  criteria  end  Bay  else  be  esntiieting,  i*  Multiple  Criteria 
Dseisien  Theory  (HCDT) .  Heltlple  criteria  deiciscn  theory  is  farther 
divided  into  a  Maltiplo  Attribute  Utility  Theory  (HAUT)  and  Multiple 
Obieotive  Opflnlsatlon  Theory  (HOOT).  Seleotten  of  HAUT  or  HOOT  depends 
primarily  on  the  nature  of  th*  problea,  policies,  and  attiibutes. 

Multiple  Attribute  Utility  Theory  is  defined  as: 

“A  type  of  decision  theory;  requires  th*  analyst  to 
•licit  prefsrenoo  interaction  concerning  the  attributes 
of  proposed  alternative  policy  of  the  decision  aaker  ; 
utilising  the  deoieion  Bakers'  preferences,  th*  analyst 
fora*  a  scalar  choice  function  (SCf).  The  SCF  is  used 
to  evaluate  the  outcoses  of  the  alternatives,  score, 
and  subsequently  rank  th*  alternative  policies  (or  th* 
decision  asking  slap."  (Ref  3) 

The  advantage  of  HAUT  is  that  the  result  provides  a  ooaplat* 
ranking  of  th*  a  1 1 a r na 1 1 ves ,  however,  disadvantage'’  Include  subjectivity 
in  establishing  the  scalar  choice  (unction  and  tha  tine  required  (or 
lap  I  I aen  t a t ion . 


Multiple  Obieotive  Optlaliation  Theory  it  defined  aa: 


An  optlaliation  atlhod  (or  enuaeratlnq  ’optimal* 


solution*  for  iltifatim  sets  which  eitreaise  s 
vector  of  performance  indioe*.  The  purposo  Is  to 
(•norats  a  non>doainated  solution  sot  ws  oall 
psrsto  optiaal  which  represents  'efficient* 
allocation  of  resources."  (Ref  3) 

The  advantage  of  HOOT  is  that  the  only  sooting  funottons  with  rospoot  to 
porferaanoo  indioos  ads .  necessary .  This  rasults  in  seas  tiae  saving  over 
KAUT.  However,  HOOT  only  prides  a  partial  or  inooaplate  ranking  of 
alternatives. 

\ 

\ 

Foousing  our  attention  to  HAUT,  we  find  that  HAUT  is  furthar 
divided  into  two  areas:  eartainty  and  risk.  Under  certainty,  weights  and 
values  of  the  attributes  are  deterained  etaetly.  This  fora  of  the 
problsa  represents  an  easily  solvable,  oloaed  fora  solution  using  the 
various  decision  tree  techniques  such  as  worth  assessasnt. 

Risk  involves  getting  the  deeislon  acker's  attitudes  towards  risk 
and  establishing  tho  values  of  attributes  and  alternatives;  however,  in 
this  case,  each  value  has  an  associated  uncertainty  factor.  Solutions  to 
this  problsa  are  aooh  aore  couples,  although  they  eoae  much  closer  to 
repesenting  the  real  world.  Solutions  often  incorporate  utility 
funotions  to  aeasure  the  risk  adverseness  or  proneness  of  a  given 
deoision  aaker  to  determine  alternative  ranking. 

Current  Activities  in  Dvcislon  Analysis 

Deoision  analysis  is  slowly  bsinj  accepted  by  the  industrial  and 


governmental  ooaaunity.  Deoision  Support  Systems  (DSS)  defined  as: 


"...a  oonputar-basad  i;ilia  (say,  a  data  baaa 
aanifiainl  ifilta  or  a  aat  of  finanolat  aodals) 
which  ia  used  personally  on  an  ongoing  baaia  by 
•anagara  and  thair  immediate  atatta  In  dttaot 
support  of  aanagarial  activities  —  that  ia, 
decisions.-  (Ref  »:1I?) 

h  a  to  boon  growing  both  in  tha  aoadaaio  aa  wall  aa  indaatrlat  aaotors. 

DSS  ara  primarily  daalgnad  to  aid  in  daoiaion  making  and  decision 
implaaantat ion.  Farther,  DSS  foooaaa  on  tha  aopport  of  daoialon  making 
and  daoialon  analyala  rathar  than  on  tha  ayatam  of  Information  flow  and 
raperta  (Rof  ll:il-i]).  Emphaaia  ia  placed  on  integrating  tha  doolalon 
maker  into  tha  proeaaa  of  daoiaion  analyaia.  A  model  of  tha  DSS  ayatam 
la  ahown  in  Figore  2. 

Ualng  tha  compotar  aa  a  bookkeeper  and  diaplay  generator,  tha 
daoiaion  maker  can  determine  tha  reeulte  of  a  partioolar  decision  or 
decisions.  The  obleotive  of  DSS  is  to  provide  the  decision  maker  a  very 
complete  and  fleiible  model  which  can  be  aecessed  from  a  terminal  with 
eat  knowledge  of  programming  or  computers  (Ref  11:3S). 

In  order  to  meet  the  DSS  oblective  many  techniques  using  decision 
analysis  methods  are  incorporated  into  the  model  base.  As  stated 
earlier,  decision  analysis  methods  break  down  a  large  problem  into 
identifiable,  smaller,  more  managabie  elements  which  can  be  dealt  with 
on  an  individual  basis.  This  deconposabi 1 1 ty  coupled  with  the  structured 
natcre  of  decleion  analysis  makes  computerisation  of  deolston  analysis 


« 


technique*  highly  attract!**. 


DATA  BASE  MODEL  BABE 


USER  INTERFACE 


1 

DECISION  MAKER 


Figor*  1  Decision  Support  Systtas  <K»i  18:44) 


Rtoont  work  don*  by  Dicitions  »nd  Designs,  Ino  <DDI>  lor  »h« 
D*(*ns*  Advanced  Research  Frojcets  Agency  had  d*aon*trat*d  on-lint 
real-tine  d*oi *  I  on  analyst*  nodal*  whteh  could  U)  perforn 
hierarchical  ly  band  probability  a***f*a*nt*,  (2)  parfora 
aol ti-attribute,  llnttr  additi**  value  function  analyst*,  and  (1)  work 
wtth  standard  dceislon  tr*t  strootur**  (Ref  t«:B>  However,  th*»* 


teohniguee  watt  Halted  by  tha  language  that  w*»  used  ;XPU,  the 


do eumaat a t l on  of  tha  programs,  and  the  aita  of  tha  problaa  that  oaatd  ba 
>nalyted  (Ref  ld:*>.  That  a  pragraa  package  waa  dttirad  which  weald 
provide  a  taal-tiae,  aaar  oriented  daeieion  analysis  ays tem  wi tbeut' the 
limitations  aneoantered  in  tha  DDI  work. 


Currant  Research  in  Real-Time  Peeialon  Analysis  Systems 

A  pregraa  package  waa  developed  by  Captain  Brace  V.  Harlan  aa  a 
Rasters  Thcaia  for  tha  Air  Force  Inatitate  of  Taehnoiogy.  Known  aa  tha 
Daeieion  Analyaia  Support  Spates  (DASS).  The  obleetivee  of  hie  thaaia 
ware  ta  oraata  a  program  whieh  ooaid: 


il  ba  need  interactively  in  non-apeci Me  htirarchioal 
daeieion  analyaie 

2)  provide  aanaitivity  analyaie  whieh  eould  ba  need  in  an 
interaetiva  dialog 

I)  demonatrate  aoaa  dieplay  formate  which  could  ba  need 
to  gat  information  to  tha  gear 

4 )  aot  aa  a  foundation  upon  whieh  to  build  a  daeieion 
analyaia  package 

J)  denonatrate  tone  of  the  algorthma  which  ean  ba  uead  for 
manipulating  hierarchical  information 

t)  ba  documented  sufficiently  for  other  proapaotiva  users 
to  implement  and  modify  (Ref  14:d> 


In  addition  to. tha  above  objectives,  another  co-obfective  waa  to 
demonstrate  the  program  for  use  on  a  snail  microcomputer  (Apple  II). 

Hi ctocomputera  have  the  advantage  of  being  highly  portable  and  vary  low 


in  cost.  Another  advantage  o(  microcomputers,  end  in  particular  the 
Apple  II.  ie  that  the  systea  ie  capable  e(  celer  graphlos  which  oeeld 
greatly  enhance  the  etility  of  Jisplaye.  Thie  capability  ie  net  readily 
available  on  larger  aaehinee  eirept  at  very  high  coat.  Unfortunately . 
dee  tc  ontoreeeable  delay*  in  the  aicroceapnter  aegeieitien,  the  bulk  et 
the  objective*  ware  aet  eelng  the  Air  Faroe  Inatltote  of  Technology'* 

CDC  didS  ijatea  using  FORTRAN.  However,  a  program  was  written  for  tho 
Apple  11.  oelng  Appleacft  II  BASIC  to  deaonetrate  feaeibillty.  and  aaay 
FORTRAN  DASS  option*  war*  incledad  (including  eanai tivity) .  Nany 
eoggaeted  iaprevaaente  tc  DASS  were  eoggeeted  by  Captain  Horten  for  the 
aicroooapoter  eyetaa.  One  wac  incorporating  oolor  graphic*  to  the  Applo 
•ystea  through  coaputer  structuring  (the  current  verrion  was  Matted  do* 
to  aeaery  restriction*  of  graphics  using  Applesoft  II  BASIC). 
Introduction  of  graphics  (or  displays  and  interactions  would  enhanee  the 
decision  acker's  interface  with  tho  DASS  (Ref  ll:*i>. 

Another  ares  of  iaproveaent  lor  the  aiorocoaputer  systea  is  in  the 
area  of  language.  BASIC  was  selected  in  the  denonet  rat  Ion  (or  the  Apple 
II  priaarlly  for  convenience  and  language  a va i I eb 1 1 i t y  .  However,  the 
language  suffer*  frea  not  being  very  transferable  tc  other  systea*. 

Since  l»7t,  new  standardised  eoaplier  languages  have  been  aad*  available 
for  aieroeoapulers,  primarily  USCD  Pascal.  Such  a  language  has  two 
advantages  (1)  being  a  compiler,  the  aetual  cieeutabla  prograa  oan  be 
run  with  a  smaller  memory,  and  (1)  tho  languege  Is  standardised  in  th* 


industry . 


Hot ioat i on  for  Continued  Htitimh 


Dooioioa  analytic  reqairee  tool*  that  art  fleiible,  adaptable,  and 
aaay  to  aoo  (Rot  9:110.  Tho  fleiibility  and  adaptability  •(  tbo  tool  la 
often  aot  meaanred  la  tame  oi  tbo  oaco  la  oroating  tbo  orlglaal 
■traotara,  bat  catbor  in  tbo  oaco  of  modification  to  that  atraotare, 
priaarily  la  tho  atoa  of  oonoitioity  analytic  (Rat  12:111). 

la  addition,  ao  atatad  aarliar,  tha  incorporation  of  graphical 
rapraaantationa  of  daeialon  analytic  taehnigaaa  greatly  anhanoaa  tbo 
andaratanding  of  tha  iapaet  of  dacicionc  on  tha  problem  atractara.  Ill* 
tha  andaratanding  of  tha  uncertainty  of  tha  attribntaa  ia  anhanoad. 

Tha  naa  of  microeompatere  can  be  of  great  atrvice  to  dteiaion 
analycla  dot  to  their  low  ooat  and  graphica  capability.  In  addition, 
they  art  highly  portable  and  not  dependent  on  larger  naehinea  for 
operation. 
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I I  Tht  Model  and  Area  of  Potential  Application* 

Thl*  ••etion  will  introduce  th*  nodel  that  th*  Dectiion  Inilfili 
Support  Syctea  (DABS)  lupport*  and  (ho  procoduro  that  *hould  bo  «**d  la 
ordor  to  iaploaont  th»  DABS  aodol . 

Tht  Hodol  -  Worth  A*«oe«nent 

Th*  DASS  aodolt  worth  ****a*aent  which  woo  introduced  by  J.  K. 
Hiller  III  in  1*6?  oo  o  aothod  lot  doteraining  prefortnooa  whon  aottiplo 
ond  coapoting  ottribotoo  oro  involved  (Ref  10).  Tho  tora  worth  oon  bo 
equated  to  other  torao  each  oo  votae  or  utility,  or  ony  other  wordo 
which  hove  o  definition  of  ",  .  .  aeooaro  of  tho  dooirobility  of  o  thing 
.  .  (Ref  6:161).  Vorth  io  not  o  flood  voloo,  bat  vorleo  eeoording  to 
individual  profereneee.  Thao  worth  oeeribed  by  one  individaol  aoy  bo 
golto  different  froa  the  worth  defined  by  o  different  individaol. 

Vorth  ocoeooaont  dtooapooeo  the  problea  into  on  hlorarehieol  tree 
otruoture  of  obiectivec  and  oub-oli  j eo t i vac .  Tht  "root"  or  top-aoot  node 
in  tho  otruoture  rapreeente  tho  aain  objeotiv*  againct  whloh  alternative 
eolutione  are  evaluated.  Within  the  tree  otruoture,  oub-obieot two  or 
goolo  are  defined  to  aeet  the  nert  higher  objective,  eventually  leading 
to  the  aain  goal  At  the  loweot  level*  of  a  given  branch  of  the  tree 
rttldee  th*  *p*e  i  ( 1 c  or  i  t or i a  or  attribute*  which  are  either  aeaoured  or 
directly  aooigned . 


An  coaapl*  of  euch  an  hierarchical  tree  otcuoture  io  ohewn  in 


Figat*  4.  Tha  overall  objective  of  a  thaatra  air  coaaandar  is  la 
aaiataln  aantral  af  anaay  ground  aovaaant  through  tha  aaa  of  air  pawar. 

Tha  "root"  nod*  had  thraa  aebgaala  ta  aid  in  achiaaing  tha  Min 
objective  and  these,  in  turn,  had  sub-ebjsetivas.  In  this  figara,  tha 
laaut  aub-goal*  wara  forthar  broken  dawn  into  graatar  datail  until  tha 
aadaa  wara  aapabla  of  baing  aaaaurad  according  to  tha  auction  which 
f al iawa . 

Relevant  feature*  af  problaaa  which  aaa  worth  aasassaaat  art: 

1)  Tharo  ara  multiple  obiaatiaaa  and  assessaant  sub-obieottves 
to  ba  oanaidarad  and  arranged  in  aona  arganitad  farm. 

Z)  Thara  ara  anltipla  factor*  whaaa  attribnta*  aoat  b* 
predicted. 

S)  Thera  ara  anltipla  worth  eonnaotion*  batwaan  tha  sub- 
oblactiaaa  and  tha  attribnta*. 

4)  Thar*  i*  physical  interaction  aaong  the  attribnta*. 

S>  Thar*  i*  often  worth  intardapandanea  aaong  tha  aub-objactives . 
(Raf  4:155) 

At  thi*  point,  it  aheuld  ba  olaar  that  thi*  nodal  only  evaluate* 
da t erainl a t I o  problaaa  where  the  probability  of  the  attribnta  or 
conaaqnanca*  oecnring  for  tha  vain*  baing  trna)  i*  unity.  No  aachaniaa 
inherently  aaiat*  tor  Including  the  daciaion  Baker 'a  attitude  toward* 
riak  (Raf  1 4 : 3  S  5  > .  However,  aavaral  author*  hare  iaplaaantad  aehaaa*  in 
which  uncertainty  ia  factored  into  the  weighting  atruotur*  of  tha  tree 
(Raf  4:170-1)  or  hava  oraatad  new  criteria  relating  to  riak  itaalf. 
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Figure  3  Hierarchical  Tree  Structure 


Applying  th*  Mod* I 


In  applying  th»  nodal,  Farris  (  Sty*  suggest  alt  steps  (Rtf 
4:1141-111*).  Tht  DABS  can  bt  gill  to  aaaiat  tht  decision  ukit  la  atapa 
two,  faor,  flat,  tad  ala. 

<11  Llat  tha  otarall  performance  objectives.  Tha  liat  afaosld  only 
eoatala  thoaa  factors  which  ata  aoat  important  to  tha  problem  at  head. 
I'Jil  ohlaetiraa  eaa  ba  obtalnad  through  aaay  approaehaa  (HaoCrlaaon  - 
1949).  Approaehaa  laeluda  aaaalnatiea  of  ralaaant  lltaratara,  aaalytloal 
atady,  and  ampirieal  empiricist.  Eaaalaation  of  tha  lltaratara  oaa 
poaaibly  reveal  previous  anooontara  with  a  alailar  problaa.  Analytical 
atady  inoladaa  balldir. ;  a  model  of  tha  ayataa  whara  variable*  of  the 
problaa  can  aaarga.  Eaplrlcal  tapirieiaa  aaan*  to  capura  tha  "thought 
process"  of  people  acting  aiailar  daciaiona.  Another  aathod,  which  ia 
gaining  aaa  in  government  and  in  private  indaatry  t*  to  aaa  a  "panel  of 
eaperts"  to  obtain  tha  various  liat*  of  objeetiv**  (Raf  10:13). 

(1)  Construct  a  hierarchy  of  perforaanoe  criteria.  Based  on  tha 
objectives  anuaaratad  in  step  one,  determine  which  objectives  ar* 
superior  to,  equal  to,  or  aubordinata  to  other  objectives.  The  raaulting 
tree  struetur*  will  b*  d*v*lop*d  with  th*  overall  goal  or  objective  at 
th*  top  of  th*  subordinate  objectives  branching  below.  While 
constructing  th*  tras,  additional  sub-ob J • o 1 1  vs*  or  eritsrla  nay  ba 
unoovarad  and  added.  Hiller  points  oat  th*  purpose  i*  to  esplicltly 


state  whet  it  intended  by  at  included  by  a  particular  objective  (Raf 
13:11).  Tba  result  at  thla  ii  ta  provide  a  v 1  aw  ar  pietaral  up  at  tka 
problem  (hawing  tha  intaraatiana  and  rat  at i cm hi  pa  aaang  tha 
sub-ob j so t 1 ves . 

unit  can  proviaa  aaaiatanoa  by  preaiding  graphieal  rapraaantatian 
at  tha  daciaien  traa  (aaing  a  wiring  diagram  format).  Tha  deoiaioa  maker 
aan  add  er  delate  sub-ebjeet ivas  at  will  in  etder  ta  achieve  tha  desired 
traa  etraetare. 

(1)  Select  appropriate  physical  partarmanoa  measures.  In  creating 
tha  traa  structure,  tha  daciaien  maker  will  have  a  iowest-sat  of 
sub-objoot 1 vas  (also  known  as  attributes  or  data  nodes).  These 
attirbutas  should,  as  a  group,  have  several  properties.  Attributes 
should  be  oomplote,  operational,  decomposable,  non-redundant ,  and 
minimum  sita  (Rat  10:30—32, id: 14-17) .  In  addition,  thase  attributas 
should  ba  able  to  hava  aomi  physical  eharao t ar 1 s t i c  assigned  to  them.  In 
order  to  determine  tha  appreprlatanasa  of  a  measure..  Saga  suggests  that 
If  changes  in  tha  state  of  tha  measure  brings  significant  changes  in  tha 
astant  ol  goal  sa t i s f .ic t i on  than  tha  measure  is  appropriate  (Raf 
14:334). 

(4)  Define  tha  relationship  between  attributes  and  physical 
pertormanea  measures,  that  is,  deal  with  the  scoring  problem.  The 
previous  step  dealt  with  ths  eristenoe  of  attributes  and  not  with  the 


V. 


U 


partioolar  film.  Sooring  function*  aust  b*  astablishad  to  transform 
t h*  physical  okarootariatlo  into  •  worth  aala*.  Millar  oaaa  •  aat  of 
soran  conventions  that  ean  ho  useful  In  oatabtlahlng  worth  valao 
tanotion*  (Rot  11:44-44).  Nota  that  thia  trantf oraat ion  la  only  don* 
among  tho  attribato*  and  not  th*  sub-objact ivas.  Thia  la  boeaaao 
sub-ob)act Isas  ar*  rolatad  to  th*  attribata*  or  lowar  objectives  and 
thalr  talaoa  will  b*  baaod  on  tha  oantribation  at  th*  lowor  1***1 
obfaotivos  and  attribataa. 

Thar*  aro  many  aooring  proeadaroa  that  can  b*  aaad  to  aatabllah  th* 
worth  aooroa  (Ra*  11:147-117).  Th*  DASS  was  daaignad  to  only  aa*  th* 
roaal ting  worth  aeoraa  (naaaurad  Iron  0  to  100  a*  opposed  to  Minor's 
seal*  of  0  to  1)  a*  Inputs  to  th*  tro*  attributes. 

(S)  Establish  solatia*  Inportanos  within  th*  saboritarl*  sat.  Vhan 
th*  tro*  was  originally  established  In  stop  2  of  this  prooadora,  many 
object!***  war*  divided  into  imaodiat*  sab-ob Jaetlvas  all  oontr ibat tng 
to  th*  higher  (or  parent)  objaett**.  Th*  problem  now  is  to  daeid*  how 
naoh  oaoh  sub-objaot l*a  (or  child)  oontrtbutas  to  th*  parent  objootl**. 
Th*  rasalttng  weights  (  a  naasura  o(  rolatiso  iaportanco)  ar*  assigned 
to  aacb  sat  of  ohildran  such  that  tho  sun  ot  th*  weight*  ara  unity.  On* 
method  in  assigning  weights  is  to  rank  a  particular  sat  ol  ohildran  (Raf 
14:157-151).  Assign  a  tanporary  value  of  on*  to  tha  aost  important 
child.  Than  astiaat*  how  much  las*  important  th*  nait  sub-objoot l»a  is. 
for  osamplo,  if  th*  nost  sub-ob J so t i **  Is  thr*a-f our ths  as  Important  as 
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th*  aost  important  *ub-ob Jec t I va ,  than  assign  th*  temporary  value  of 
0.73  to  it.  Thao  rota  tha  third  child  against  tha  aaaand.  If  tha  third 
child  if  ona-half  af  important  oa  tha  second,  than  tha  third  child  if 
0.373  oa  important  ta  tha  firat  and  tha  temperary  rains  af  0.373  if 
asalgnad  ta  tha  third  child.  Tha  praeaca  cantinnac  until  tha  laat  child 
is  avalnatad.  At  that  tlaa,  all  tha  weights  ara  than  raacalad  aoch  that 
thair  ana  is  unity.  If  w*  lat  b(p)  ha  tha  taaparory  weight  of  tha  aaat 
iapartont  ohild  fof  p  children),  tha  naraaliaad  weight  af  any  child  i 
Mill  ha: 


Noraal trad  Weight 


hit) 

b ( 1 )  ♦  bill  ♦  .  .  b(p) 


Tha  DASS  proTidae  tha  near  tha  capability  ta  enter  tha  iaportanoa 
af  ana  node  relative  ta  the  aoa*  iaportant  and  automatically  noraallaea 
tha  entered  weightf.  Tha  program  alee  allow*  the  near  to  aodify  theca 
weights  tor  a  given  structure  at  will. 


(i)  Adjust  tha  weights  to  reflect  confidence  In  the  perforaanca 
■natures.  After  the  weight*  and  values  have  been  estibliehed  in  tha 
proceeding  steps  a  cumulative  weight  can  be  established  for  each  n.de  by 
■ultiplylng  th*  walghic  of  itself  and  til  Its  parents.  This  cumulative 
w?<ght  reflects  the  node's  contribution  te  the  entire  tree  structure.  By 
■ultiplying  th*  worth  scores  for  each  attribute  by  its  cumulative  weight 


17 


and  then  •suing  the  reselling  products  o(  ail  th»  attributes,  a  total 
worth  toira  lor  a  gieon  alternative  ean  bo  established. 

is  with  all  ifttiai,  all  figoroo  or  valoos  carry  a  certain  degree 
of  snosrtainty.  One  aothod  to  doal  with  oneertainty  it  to  adloat  the 
conslative  weights  of  the  attrlbstoo  by  a  (aetor  whose  raise  is  between 
sore  (no  eonftdonoo)  to  one  (certainty).  The  esnnlatieo  weights  art  then 
re-no rna 1 Isod  and  tho  resoltant  now  weights  an  then  need  In  osalsattng 
alternatiees  (Hot  14:331)  . 

DhfS  ssos  aonsltieltr  analysis  to  deal  with  onoertainty.  An 
adeantags  of  sonsitieity  analysis  osor  adlnstasnts  la  that  a  particular 
sub-ob ) e c 1 1 ee  or  attribsto  taking  on  a  range  of  vaises  can  bo  otanined 
to  ooe  If  ths  alternatiee  ranking  of  ths  oeorall  oblectkeo  changes.  A 
disadvantage  is  that  only  one  objoetivr  or  attribsto  can  br  eaanlned  at 
a  tins. 


1 1 


The  main  throat  of  thia  thaata  an  to  oombine  thraa  different  . 
technologies  to  demonstrate  both  tho  feasibility  and  praet toal i ty  of 
employing  tha  DASS.  Thaao  tachnologiaa  ware  at croeompotars ,  eoapotor 
graphics,  and  sensitivity  analysis.  In  thla  (action,  dtacoaaion  will 
cantor  about  aaeh  tachnieal  araa  dtaeuaaing  both  tha  obiectiva  and  tha 
aathod  oaod  to  roach  tha  objeotive. 


Microcomputers 


Ona  objaotiro  poraoad  was  to  install  tha  DASS  on  tha  Apple  II 


microcomputer  and  to  daaonatrata  tha  ai erooomp'uter *  a  capability.  Aa 
aantionad  ee.lier,  alcroeoaputara  have  tha  advantage  of  being  portable. 


In  addition,  ai eroeoapotara  otter  advantages  of  lower  capital  investment 


(typical  ayataaa  are  under  >3000)  and  lower  power  ooata  (Ref  19:77). 
Tha  Apple  II  waa  (elected  because  of  its  prior  dcaonstrated 


performance  using  tho  BASIC  version  of  DASS  and  its  immediate 
accessibility.  In  addition,  tho  Apple  II  had  the  capability  of  producing 
high  resolution  color  graphics  (ISO  s  ifl).  These  features  coupled  with 


the  availability  of  the  PASCAL  compiler  Indicated  than  an  espansion  of 


the  BASIC  DASS  program  to  be  both  feasible  and  doabla. 

PASCAL. is  a  fairly  new  language.  It  is  the  first  language  to  embody 
the  concepts  of  structured  programming  defined  by  Edsger  DIJkstra  and  C. 


A.  A.  Hears.  The  tingftfi  nii  diuloiil  by  Niklaus  Vlrth  at 
Eidgenessisehe  Technische  Hoehsohula  in  Zorich  and  ic  a  derivative  of 
ALGOL  tO  (Ref  7:fii).  The  main  advantages  of  PASCAL  art  in  lit  program 
•troetoro  and  its  data  datinltian  (Raf  IS). 

An  implementation  ef  PASCAL,  specifically  for  small  naehinaa  Ilka 
tha  Apple  II,  la  USCD  PASCAL  daaalopad  by  tha  Inatitota  of  Information 
Seianeaa  at  tha  Univarsity  of  California  at  San  Diago,  under  tha 
diraotlon  of  Kenneth  L  Bowles.  USCD  PASCAL  differs  from  tha  PASCAL 
defined  by  Kathleen  Jansen  and  Niklaos  Virth  in  their  PASCAL  USER  MANUAL 
AND  REPORT  primarily  in  tha  areas  of  tiles  and  inpat  I  output  operations. 
In  tha  PASCAL  version  of  DASS,  one  diffarenoa  that  was  used  in  USCD 
PASCAL  was  tha  use  of  random  acoass  of  data  files  (Raf  17:151).  Tha 
largest  diffarenoa,  though,  was  in  tha  use  of  segmented  procedures. 

Segmented  procedures  allow  a  large  program  to  be  divided  into 
smaller  parts  which  are  then  entered  into  the  computer  memory  as  they 
are  needed.  This  process  is  similar  to  overlaying  found  in  FORTRAN.  This 
option  allows  for  a  computer  compiled  program  to  be  several  times  larger 
than  the  intrinsic  computer  memory  which  results  in  more  processing  and 
display  capabilities.  In  addition,  segmented  procedures  are  advantageous 
because  the  variables  common  to  all  procedures  are  immediately 
available,  a  fact  which  is  not  readily  available  in  other  schemes  in 
program  chaining  (for  esample,  BASIC). 

In  the  development  of  the  enhanoed  DASS,  segment  procedures  were 
created  along  the  lines  of  major  program  options  sooh  as  creating  the 


traa  atruoture  (option  SPA)  and  loadino  attribute  value*  and 


cub-objeoti v*  weight*  (option  WC).  In  all,  ail  aagnant  proeadaraa  aara 
aaad  oat  of  tha  aeven  available  which  allow*  for  aona  fatara  aapanaion 
of  tha  OASS. 

Conpotar  Color  Craphlc* 

Tha  aaeond  objective  which  wai  paranad  waa  to  aiploit  color 
eonpatar  graphioa,  in  particular,  tha  color  graphioa  available  to  tha 
Apple  II  PASCAL  ayaten. 

Tha  field  of  computer  graphioa  ia  a  new,  rapidly  developing  field. 
Ita  ohief  advantage  ean  be  vanned  ap  by  the  old  Chineae  proverb  of  “on* 
picture  ia  worth  a  thoaaand  worda*.  Approainately  eighty  paroant  of 
infornation  that  ia  reaanbered  ia  reeiavad  through  viaoal  atinnli  (I of 
1:104).  In  addition,  tha  hvnan  nind  ia  tha  beat  available  pattern 
recognition  oonpater.  Thic  coupled  with  the  fact  that  graphic  fornate 
convey  quantitative  data  aa  patterna  in  phyaical  apace,  the  hunan  can 
accinalate  large  anounta  of  data  to  nek*  daoiciona  (Ref  4:112).  In  fact, 
graphical  reprecentationc  of  data  ia  uaad  to  clarify  trenda,  identify 
the  negnitade  of  trend*,  facilitate  conpariaona,  aid  in  retention,  and 
focua  attention  on  the  aignifioant  aapeot*  of  the  infornation  (Ref 
2:24). 

A  two  phaae  effort  wa*  caed  to  achieve  the  objective  of  color 
computet  .rtphloa  The  first  wa*  to  enhance  the  graphical  preaentat ion* 
in  the  original  ivraion  of  the  DASS  (Ref  14).  Theae  preaentation*  war* 


prinarily  foand  In  th*  display  tad  sensitivity  nodal**  of  th*  progtas. 
Th*  ooeond  woo  to  odd  now  graphic  display*.  Thoo*  dioplofo  worn  in  the 
oroo  o f  inpat,  prisorily  th*  hiororehiool  tro*  itooli  ond  in  oooignisg 
worth  voices  to  th*  ottribatoo.  Boior*  dioeutoing  that*  phooos  in 
dotoil,  ton*  general  oonnont*  notd  to  bt  sod*  ooneorning  th*  color 
system  a**d. 

Colot*  available  to  th*  Apple  II  PASCAL  system  wot#  orongo,  violet, 
bin*,  gtoon,  ond  whit*  *•  wall  •*  th*  boekgtoand  eolot  of  block.  In 
order  to  nointoin  consistency  thtoaghoat  th*  ptogron,  o  aniqa*  ootor  wo* 
o«*lgn*d  to  ooch  alternative.  Tha*  th*  lir*t  alternative  wo*  o**ign*d 
color  orongo,  th*  n**t  violet,  ond  *o  on.  A  legend  roloting  oolor*  to 
oltarnotivac  opp«»r*d  on  ooch  grophio*  iignr*  whloh  oontoinod  th* 
ol tor not i vo* .  Thi*  provided  th*  a**r  with  on  innodiot*  roforonet.  A 
•ooond  a*o  at  tha  Itgtnd  wo*  to  provid*  intornotion  whan,  in  inter* 
version*  of  DASS,  th*  grophio*  display  ooald  b*  printed  direatly  to  * 
block  ond  whit*  printer  (Reasons  {or  not  aslng  *  color  printer  i* 
prinorily  eoet  (Ref  4:11*). 

loproving  Eslstlng  Dl»ploy».  Th#  orlginol  version  of  th#  DASS  **#d 
*  1  phonon# r i c  chorootere  in  drawing  th*  graph*  (Ref  id).  Thi*  wo*  beeoeee 
th*  eospater  that  the  original  version  wo*  ran  on  did  not  hove  on 
available,  interoetiv*  graphic*  eopobility.  In  addition  to  th*  ot#  of 
eharaoter*  in  graphs,  alternatives  vsre  labelled  by  alphabetical 
characters  (that  is  an  A  represented  th*  first  alternative,  B  th* 
seoond,  ond  so  on).  In  th*  enhanced  vereion,  th*  alphanonerlo  graphs 
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viti  tiflieii  with  line*  tad  alternatives  war*  colored  and  rapraaaatad 
ly  linas  or  bars.  An  appraeiation  ol  tha  didarenoes  can  ba  aaan  In 
Figures  4  and  3. 

Regarding  tha  display  lor  tha  sensitivity  analysis,  vary  ltttta  wan 
naadad  to  Inprovo  tha  diaplay.  As  ean  ba  aaan  la  Figure  4(  ohangas  warn 
to  labal  which  typo  ol  aanaltlvlty  analysis  was  nsad  (only  ona  typa  of 
analysis  was  posslbla  In  tha  original  version.  Saa  tha  saotlon  on 
sensitivity  analysis).  In  addition,  note  that  tha  objeotive/attribute 
tntornation  is  present  in  tha  newer  diaplay.  Tha  original  vatslon  did 
not  have  this  inlornation  with  tha  graph;  however,  tha  analyses  was 
normally  dona  at  a  printing  tarninal  whioh  raoorded  all  appropriate  node 
("formation  used  in  tha  sensitivity  analysis. 

While  tha  diaplay  (or  tha  sensitivity  analysis  ehengad  vary  little, 
tha  display  (or  inlornation  regarding  a  node  ohangad  greatly  (Figure  3). 
In  tha  improved  version,  a  wiring  diagram  was  employed.  Tha  reason  (or 
using  a  wiring  diagram  was  that  decision  makers,  especially  military 
daeiaion  (rakers  are  ustd  to  sating  hierarchies!  structures  in  wiring 
diagram  lormats  as  in  organisational  charts.  In  addition  to  tha  wiring 
diagram,  individual  ooior  bars  wart  used  to  denote  tha  values  ol  each 
alternative  at  each  tub-object l va .  The  bars  provide,  at  a  glance,  a 
comparison  among  tha  atarnativas.  Tha  bars  ware  drawn  vertically  as 
opposed  to  any  other  dlroction  baealusa  linst  drawn  vertically  represent 
tha  most  accurate  and  tha  most  orisp  represent  a t i on  ol  the  data  bated  on 
tha  Apple  eomputar  electronic*  In  addition,  the  wiring  diagram  (botes 
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(b)  NEW  DISPLAY 


and  Mini)  was  drawn  in  grim  in  iriir  to  inprov*  iliwitg. 

Adding  Wow  DIipUm.  Display*  that  wort  inproved  la  tbo  oabaaood 
tirilm  oi  tho  DASS  worn  oriontod  towards  tbo  output  of  tbo  progna.  In 
addition,  attention  was  diraotod  towards  esploltlng  color  graghlii  on 
inpnt.  Tbo  challenge  of  using  graphic*  for  input  is  to  bo  flotiblo  and 
robnot  to  o*or*  error*  as  well  a*  piotorally  displaying  tbo  inpnt  data. 
Two  areas  wore  idontifiod  as  eandidatos  for  this  typo  of  display.  They 
wot*  tbo  hloratchioal  structure  itsolf  and  th*  worth  values  of  tbo 
attributes. 

In  tho  original  version  of  th*  DABS,  th*  hierarchical  tro*  was 
input  on*  span  at  a  tin*  wh*r*  th*  eonputer  would  display  tha  title  of 
th*  parent  objective  and  th*  user  would  enter  the  innedlate  descendants 
In  the  enhanced  version,  th*  can*  infornatlcn  is  asked  tor,  but  through 
a  tree  diagran  where  th*  user  inputs  the  title  of  th*  descendant* 
(Figure  A).  As  can  be  seen  in  Figure  4a,  th*  parent  objective  is  at  the 
top  of  th*  wiring  diagran  with  a  boa  for  th*  first  desoendent.  As 
innedlate  desoendent*  are  added,  new  beaes  are  drewn  awaiting  input 
(Figure  4b, cl.  When  no  nor*  descendants  are  to  be  added,  th*  progran 
asks  for  desoendent*  of  th*  first  *ub-»eb  jeot  i  v*  (Figure  4d>,  and  so  on. 
Again,  th*  wiring  diagran  schen*  was  used  to  provide  a  sotting  that 
would  be  eonfortabl*  to  th*  user. 

Tor  entering  worth  values,  th*  original  version  of  DASS  appraised 
th*  user  of  th*  previous  alternative  values  oi  the  attribute  and  asked 


(or  th*  new  inputs.  This  nathod  of  input  is  not  bad,  sspeelally  when 


••tut  worth  tunotion*  to  transform  t  uu«t»  sueh  it  Ollm  end  hMti 


into  worth  film.  However,  when  a  diraot  worth  iitliiti  needs  to  bo 
•ado  (or  an  attrlboto.  a  visual  eoaparisoa  oaa  bo  oaotol.  Maneo  tho 
dliflif  shown  to  Figaro  7  was  developed.  As  ean  bo  oooa  Is  tho  fignre, 
tho  estreat  raise  »(  tho  oltoraatiroo  aro  proooatod  both  numerically  and 
ta  bar  graph  format.  Tho  uoor  than  inpot «  tho  now  valoo  la  tho  bos  at 
tho  bottom  of  tho  ooroon  and  open  coaptation,  tho  ooapotor  ooeverts  tho 
oatrp  Into  a  bar  aad  plaaoo  tt  oadar  tho  NEV  VALUES  aroa,  ia  the 
al toraat too ' o  color.  Thao  tho  naaorieol  iapnt  oalooo  aro  transformed  aad 
spatially  displayed  ao  aa  aid  in  rains  lntorprotat ion. 
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□  □□ 

ALTERNATIVE 

OLD  VALUE 
NEV  VALUE 


Figaro  7  Attrlboto  Value  Input  Display 
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Addition!)  Sensitivity  Module 


Thi  third  till  incorporated  into  tho  OASS  propria  was  to  provide 
idditiontl  capability  in  tho  interactive  sensitivity  mlfili,  Tho  ohiof 
advantage  of  tho  original  DASS  mi  tho  foot  tho  sensitivity  analysis 
could  bo  dono  In  «  real-time  baoio  (that  it,  while  tho  aoor  i*  at  tho 
oonoolt).  In  tact,  tho  major  drive  tor  all  daelcion  support  systems  is 
to  give  tho  nsor  immediate  answers  to  "what  if  typo  questions  (Rot: 
4:112,3:31).  In  tho  original  work,  any  objective  or  attribute  *:i»  oosld 
ho  varied  on  tho  basis  of  its  overall  eontribntion  to  the  hierarchical 
strsotsro  (Rat  H : Programmer ' s  Hanual:Z-4>.  The  revolting  ohangas  in  the 
valoo  of  the  "roof  node  for  the  alternatives  provided  an  indication  of 
how  sensitive  the  incumbent  best  alternative  would  bo  if  the  overall 
"strength"  of  a  particular  objective  varied. 

As  one  oan  easily  guess,  the  types  of  "what  if"  questions  oan  bo 
both  infinite  in  number  and  eitrenely  difficult  in  oomplesity.  However, 
two  additional  "what  If"  areas  were  investigated  in  addition  to  the 
cumulative  weight  model  presented  in  the  original  and  enhanced  versions 
of  the  DASS.  They  were  (1>  what  happens  to  the  alternative  seleotion  if 
the  relative  weight  of  a  particular  node  changes  value  among  its 
siblings*,  and  (2)  what  happens  to  the  alternative  selection  if  the 
value  of  an  alternative  changes  for  a  particular  e  •  tribute) 

Sensitivity  of  Relative  Velaht  Vhat  we  are  esamining  is  the  ehange 
in  alternative  values  at  the  "roof  node  based  on  a  change  of  a  relative 


If 


weight  i  epan  anywhere  in  the  tree.  Note  that  the  'reef  node  in  the 
overall  objeetlva  ef  the  ttee  atruoture. 

In  perterning  the  analyeia,  we  need  te  look  at  hew  tha  valuea  el  e 
node  ie  ealenlated.  Nete  that  far  any  node,  tha  valua  of  an  alternative 
for  that  node  le  Juet  the  een  ef  the  prodoete  of  eaeh  tanediate 
deneendent  alternative  vaine  and  ite  relative  weight  er: 

VALUE ( PARENT  NODE)  -  ^  RELATIVE  VEICKT(DESCENDENT) * VALUE ( DEBCENDENT) 
all 

immediate  Ill 

daaeandantf 

Thee  we  ean  vay  that  a  change  in  the  relative  weight  el  any  node 
will  enly  afleot  the  value  ot  the  paren*  neda.  In  addition,  note  that 
the  value  ol  any  node  i*  enly  dependent  on  ite  own  inaediate  deeeendente 
and  not  on  tha  relative  weight  of  the  node  itaelf.  Therefore,  in 
eeaainlng  a  change  of  tha  relative  wieght  of  a  node,  the  new  alternative 
valnee  ot  ite  parent  need  to  be  calculated  and  eobotitotad  for  the 
Ineombant  valnee  of  tha  parent.  Thia  eobetitntion  will. then  affeot  the 
value  of  tho  "rout*  node. 

Subctitution  ot  tha  new  valnee  into  the  "rort“  node,  fortunately  ie 
a t rai ght -forward .  Note  that  the  vaine  contribution  of  any  node  to  the 
'roof  node  ie  )net  the  product  of  ite  vulue  multiplied  by  ite 


cumulative  weight  or: 
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NODE'S  CONTRIBUTION  TO  THE  ROOT  NODI  -  CUMULATIVE  VEICKTtKODE)  • 

VALUE  (NODE)  IE1 

lino*  th*  oonolatlve  weight  el  th*  parent  is  onehanged,  the  eheng* 
in  th*  vela*  of  th*  parent  can  b*  added  to  th*  "root*  nod*  of: 

NEW  VALUE ( ROOT  NODE)  -  OLD  VALUEIROOT  NODE)  • 

(CUMULATIVE  VE ICHT( PARENT)  •  OLD  VALUE ( PARENT) >  * 
(CUMULATIVE  WEI CHT( PARENT)  »  NEW  VALUE ( PARENT) ) 

III 

A  question  her*  arises  as  to  how  to  distrlbsto  th*  regaining 
relative  weight  to  th*  nodr's  siblings.  An  arbitrary  rale  was  wade  to 
keep  th*  relative  weights  of  th*  siblings  at  th*  sane  proportions  as  was 
in  th*  inooabent  sitoatton.  For  sample,  let  a*  have  three  objeetivs 
nodes  A,  B,  and  C.  Let  each  o f  these  obfeotive*  have  the  relative 
weights  of  0.7,  0.1,  and  0.1  respoet 1**1 y .  It  w*  eheng*  the  relative 
weight  oi  A  iron  0.7  to  0.1,  then  nod*  B  will  haeo  a  relative  weight  of 
0.113  and  nod*  C  will  have  a  relative  weight  of  0.047.  If  w*  varied  nod* 

A  iron  0.7  to  0.4,  nod*  B  will  have  a  relative  weight  of  0.247  and  nod* 

C  0.111.  Not*  that  th*  ratio  of  th*  weight  of  S  to  C  i*  unchanged  in  all 


Thu*  th*  overall  procedure  in  esaninlng  th*  effect*  of  a  change  in 
a  relative  weight  of  a  given  nod*  on  th*  "root”  nod*  is: 

(1)  Piok  a  new  relative  weight  of  th*  node  to  be  rtanined. 


i 
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(2)  Redletrlbut*  the  remaining  relative  weight*  (thet  1*  one 
Bins*  the  reletive  picked  In  etep  ( 2  >  >  among  the  node's 
siblings. 

<32  Recalculate  the  valu*  of  the  node**  parent  using  the  new 
relative  weight*  eelected  In  etep*  (1)  and  (2)  cling 
equation  til.  Net*  that  the  value*  of  the  nod*  and  It* 
sibling*  are  unchanged. 

(4)  Substitute  the  now  lain*  of  the  parent  nod*  in  place  ef 
it*  old  value  at  t) *  “root*  nod*  using  aquation  (II. 

8en««tlvltT  of  Attribute  Valu*.  The  objective  in  this  senitivity 
rueiysis  1*  to  eiaaln*  the  effect  of  varying  an  attribute  alternative 
vali*  on  the  “root*  nod*. 

In  this  analysis  net*  that  varying  a  valu*  of  an  alternative  doe* 
not  affect  the  values  ef  any  other  alternatives  t independ* -. ;*  among 
al ternat  i«e«)  ■  In  addition,  not*  that  ohanging  value*  does  not  affsot 
the  tree  struotur*  in  either  'he  cumulative  or  relative  weight*. 
Therefore,  a  change  in  the  “reel*  nod*  oan  oocur  only  for  the 
alternative  varied  and  then  by  the  amount  of  the  oumulativ*  weight  of 
the  a  1 1  r  ‘  bu  t *  or: 

NEW  VALUE(ALTERNAT1VE,ROOT  NODE  >  ■  OLD  VALUE : AL7ERNAT! VE , ROOT  NODE) 

CUr.dLATIVE  WEIGHT! ATTRIBUTE)  • 

INCUMBENT  VALUE  (ALTERNATIVE, ATTRIBUTE) 

CUMULATIVE  WE  1 CHT( ATTR I  BUTE )  » 

NEW  VALUE  (ALTERNATIVE, ATTRIBUTE)  C4J 

Not*  that  varying  th*  valu*  of  an  alternative  lor  an  attribute  only 
aff*et5  th*  valu*  of  tha  "root”  node  for  that  alternative  and  th*  valu** 
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I. 


of  th*  "root"  nod*  lot  *11  other  alternatives  *r*  unchanged. 

Thu*  tho  prccedur*  in  aiaaing  th*  offoet*  of  ehanging  «n 
alternative  value  for  *  given  attributo  1*: 


(1)  Soloot  a  now  value  of  th*  attrlbot*  for  a  given  altornati** 

<ZI  Caleulat*  the  now  value  of  th*  "root"  nod*  tor  tho 
given  alternative  «*ing  equation  tdl.  All  other 
alternative  value*  for  th*  'root"  nod*  will  renain 
■nohanged. 
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wanfigiiiiiieiwr* 


Th e  first  problem  dealt  with  determining  th*  bait  production 
technique  to  develop  tritium.  Th*  group  studying  th*  problem  was  ontir* 
as  to  which  of  fear  alternatives  (3  di(f*r*nt  modifications  or  t  ntw 
facility)  would  b*  beat  baa*d  on  several  competing  objectives. 

After  aoa*  discussion,  th*  group  decided  that  th*  problem  could 
beet  be  decided  aeing  th*  worth  aeeeeement  procedure.  They  deoided  on  *n 
hierarchical  etructure  ehown  in  Figor*  3.  Baaed  on  thia  partionlar 
atroctor*.  the  group  developed  weight*  and  vain**  for  all  applicable 
node*.  At  that  point,  th*  hierarchical  system  was  entered  into  th*  DASS. 
and  evaluated. 

Th*  revolting  vaio*  for  the  overall  objective  (3CST  METHOD)  is 
shown  in  Figor*  V.  Th*  figure  shows  a  consolidation  of  all  nodes  into 
th*  total  line  in  the  figure. 

Based  on  thee*  results,  questions  were  raised  regarding  th* 
sensitivity  of  each  sub-objectives  immediately  descendent  to  th*  overall 
objective  namely:  cost  (COST),  production  methods  (PROD  METH),  technical 
risk  (TECH  RISK),  tins  (TIME),  and  public  reaotion  (PUB  REACT). 


Tritium  Production  Tree 


BEST  METHOD 
rACTOR 

IN-CORE 

OUT-CORE 

SHtELD 

MEU  PLANT 

COST 

77.00 

•  4.03 

•  7.43 

43.00 

PROD  HETH 

33.00 

33.40 

33.43 

100.00 

TECH  RISK 

73.71 

77.73 

71.40 

•  0.40 

TIME 

13.73 

IS. S3 

74.33 

34.00 

PUB  REACT 

43.20 

43.30 

43.73 

St.  10 

TOTAL 

(4.34 

70.10 

41.34 

74.71 

Figure  7  Results  ter  Tritium  Production 


Thue  a  (tnllltllf  mtlpli  on  Iho  obhIiUti  weight  were  conducted 
using  the  DAS8  program  I or  oseh  of  these  nodes. 

The  rosalts  of  sensitivity  analysis  indicated  that  ehanglng  the 
emphasis  on  oost  <*'t  '.34  to  0.30;  or  production  faotors  fro*  0.0  to 
0.40;  or  tins  from  0.14  to  0.10  ohangsd  the  resolt  of  tha  best 
alternative  from  a  new  plant  to  one  of  the  modifications.  However, 
changing  the  emphasis  on  technleal  risk  or  tine  over  the  entire  range  of 
cumulative  weights  tor  these  sub-obfeotivas  did  not  slter  the  selection 
el  the  best  alternative.  Therefore,  based  on  the  sensitivity  of  the  best 
eolation,  especially  with  regard  to  cost,  production  factors,  and  tins, 
additional  analytical  investaent  should  be  made  to  insure  the  accuracy 
ai*3  stability  cf  the  entered  weights  and  values. 

the  better  of  two  new 
The  teaa  studying  this 
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perticaler  identified  two  eenpeting  sab-objectivoe  end  therefore  decided 
to  one  worth  eseesemont  vie  the  DASS. 

After  diseasefng  the  problem,  the  etedy  teen  developed  tho 
hiererehioel  tree  otractare  shown  in  Figaro  10. 


BEST  SYSTEM 


EFFECTIVE 


TIME  ON  TGT 


TGT  NEG 


Figaro  10  Advenoe  weapon  System  Tree 

■eeed  on  thi*  structure,  the  teen  then  determined  the  epproprlete 
weights  end  velaee  end  entered  the  dete  into  the  DASS  program  with  the 
reealte  ehown  in  Figaro  11. 


BEST  SYSTEM 
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SYSTEM  1 

SYSTEM  J 

COST 

IS. 00 

53.00 

EFFECTIVE 

it  .  00 

71.5 

TOTAt 

71 . 40 

it. 70 
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miillill;  of  tho  boot  alternative  (Bystea  1)  if  tfco  weight  of  eoot 
(COST)  varied.  Uoing  tho  BASS,  tho  sensitivity  antlyels  ohowod  thot 
ftystoa  I  woold  bo  preferred  if  tho  ooot  woro  to  bo  rodoood  is  iaportanoe 
froa  0.40  to  0.10.  Thoo  additional  offott  to  further  define  the  weights 
osod  in  this  otrnotsro  at;  not  bo  fruitful. 

An  additional  question  was  raised  as  to  tho  offoot  of  varying  the 
relative  iaportaneo  of  tiae  on  target  (T1HI  ON  TCT)  to  its  sibling, 
nuabor  of  targets  negated  (TCT  NEC).  Tho  resslto,  uoing  the  BASS, 
indicated  that  Systea  1  would  bo  tho  proforrod  alternative  regardless  of 
what  tho  rolativo  iaportaneo  was  between  those  two  nodos.  Therefore, 
further  refineaent  of  those  weights  would  not  bo  aeanlngful. 


V  Conclusions  end  Recommendations 


Hrnrny  objectives  war*  pursued  In  this  research.  Th*«*  objectives 
war*  tb*  laplament at  ion  ot  tha  DASS  an  a  mi crocoapot at ,  th*  gia  of  ,oi 
computer  graphics  for  inpat  and  outpat  displays,  and  th*  addition  of 
sensitivity  analysis  modules  in  th*  DASS  ttaalf.  Thaaa  objectives  will 
b*  addraaaad  individual ly .  At  tb*  oonolualon  of  thaaa  comments,  a  list 
of  racaaaandad  attentions  to  this  thasls  will  bo  prasantad. 

Tb*  first  oonolvsion  that  can  b*  drawn  is  tkat  tha  DASS  can  bo 
adapted  to  a  aicroeoapatar  Inoludlng  ooapater  graphics.  Prior  to  this 
work,  DASS  was  iaplaaantad  on  a  aioroooapatar,  but  was  onabla  to  ns*  tha 
aicroooapntar *  a  graphics  capability.  This  work  iaplaaantad  tb*  DASS  and 
was  abl*  to  provide  gtaphles  sopport.  In  addition,  options  not  available 
in  th*  aioroooapatar  pragraa,  displaying  a  nod*  and  pruning  th* 
hierarchical  tra*  war*  installed  under  this  enhanced  version  o!  tha 
DASS.  Thaaa  aeooapl ishaants  war*  priaarily  do*  to  tha  ns*  of  a  ooapilar 
language,  PASCAL,  which  enabled  th*  prograa  to  b*  asaontad  in  a  aueh 
saallar  aaaory  than  tha  previous  version.  In  addition,  tb*  ns*  of 
segmented  procedures  enabled  th*  program  to  b«  asaeotfd  saoeassfally 
even  though  th*  program  was  auoh  larger  than  th*  actual  eoapatar  aaaory. 

A  second  eonolasion  is  that  conputar  graphics  does  enhance  tha 
outpat  of  th*  DASS.  Color  graphics  provided  additional  visoel  emphasis 
to  those  figures  displayed  in  th*  original  version  and  naw  insights  to 
those  graphies  nodal**  added.  Th*  as*  of  eolored  bars  in  aany  displays 
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•Hew  the  sect  to  interpret  ggobirti  «t  •  glance:  •  job  graphice  dots 
boot. 

The  third  oonoluslon  reached  io  that  sensitivity  analyses  (boot  a 
nodo'o  rolatioo  weight  or  an  alternative  attribote  value  eaa  he 
accomplished.  In  (act.  the  sensitivity  analyses  in  thece  areao  were 
fairly  etralght  forward.  Faete  that  wade  the  problem  otralght  forward 
were  the  assumptions  of  the  worth  assessment  model  ooneerning  linear 
additivity,  attribote  valve  independeneo .  and  oenotant  marginal  rate  of 
eobet 1 totien  (Ref  14:19-Z0>. 

While  thio  work  made  advancement  in  oombining  teehnologiee 
relevant  to  deeieion  analyoie,  mooh  farther  work  needo  to  be  dene.  Five 
areao  are  recommended.  They  arc: 


*  Creating  worth  value  function!  to  traneform  maaonreo  into 
worth  valoee.  The  current  program  only  accept!  worth 

va loco. 

■  Enhancing  graphical  divplayo.  Additional  graphlce  could  be 
added  to  the  program  in  the  area  of  multi-node  dioplayo. 

*  Improving  node  reteranoe  nomaao 1  at  ore .  Thl*  could  be 
done  by  eaamining  tha  merit!  of  tho  nodi  reierenoa  number 
lyetem  uead  to  identify  a  particular  node  ai  opposed 

to  poicibla  near  oriented  method  (euch  ae  the  title  of  the 
nodee  thamielvei). 

*  Eitending  the  lenittivlty  analysis  to  two  or  more 
objeotivee/valuei  and  provide  graphical  cupport. 

*  Efanine  the  neriti  of  audio  input!  and  output!  in  the 
DASS. 


In  eonoluiion,  decision  analysis  is  coming  of  age  and  new 
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technologies  suoh  ts  ni oioooapot er s  end  color  griphios  ore  beeoalng 
10*411}  inlUbl*.  The  future  holds  s  doable  challenge  for  Ihoao  who 
dors:  to  proeido  answers  to  questions  which  in  eoaples.  vogue,  tad 
difficult,  sad  to  present  those  answers  in  the  aost  aeeningfal  sty  io 
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Not*  -  tb*  glomty  will  rtlar  to  th*  following  itupli 
tro*  hierarchy  to  dcaonatrat*  to**  of  th*  conoopta  dafinod. 
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Th*  Staple  Hierarchy 


backllnk  -  this  it  a  data  atruetcr*  eenoapt.  Th*  nod*  whioh  ptootda*  a 
nod*  in  tha  data  (tractor*  i(  backiinked  to  that  noda.  In  tha 
atanpia,  nod*  <AA>  la  th*  backllnk  to  nod*  (AB>  and  nod*  < A > 
ia  th*  backlink  to  nod*  (AA>. 

branching  nod*  -  a  nod*  (or  ebiactl**)  which  haa  at  laaat  on* 
doaoandant  . 


o*It  tor  nod*  r*cord>  -  rafar*  to  th*  block  of  data  aaroclatad  with  a 
nod*.  OASS  oaaa  call*  to  atora  th*  pelntara  and  th*  data  (or 
aack  nod*  Tha  poln'ara  atorad  ar*  th*  downlink  pointer,  tha 
oroatlink  pointer,  and  tha  backlink  pointer.  In  addition 
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y  (cant) 


Infomation  relating  to  tha  node  aaoh  at  tho  node  digit,  the 
relative  weight,  tha  canolative  weight,  and  ail  alternative 
ulili  ate  loot  tad  in  a  call. 


ehildran  -  this  is  s  cancapt  ot  hisrtrehias.  Tha  children  of  a  nods  at* 
those  .''odes  which  are  one  level  down  (ran  that  node.  In  the 
esaaple,  nodes  (AA,  AB)  ate  children  at  node  (A)  and  nodes 
(AAA, AAB.AAC)  are  children  of  node  (AA>. 


crosslink  -  this  is  «  data  structure  concept.  The  first  sibling  node 
which  is  added  after  a  node  is  that  node’.*  crosslink  node 
(erosslinkod  to  thai  node).  In  the  eianple,  node  (AB)  is  the 
crosslink  to  node  (AA)  and  node  (AAC)  is  the  eroslinfc  to  node 
( AAB) . 


eamalative  weight  -  this  is  the  weight  of  a  node,  relative  to  tha  root 

node.  This  is  a  measure  of  the  contribution  of  the  node  to  the 
entire  hierarchical  structure.  The  canalatlve  weight  is  equal 
to  tha  product  of  the  relative  weight  of  the  node  and  the 
eunalative  weight  of  the  parent  (the  cumulative  weight  of  thw 
'root'*  node  is  unity). 


data  node  (also  attribute)  -  a  node  which  has  node  descendants. 


descendant  -  a  node  which  cones  after  a  given  nods  in  the  hierarchy. 


depth-first  soaroh  -  a  synthesis  of  data  and  logic  structure  concepts.  A 
depth-first  search  traverses  a  tree  by: 

(1)  adding  new  levels  first  (if  possible) 

(2)  then  visiting  tlie  crosslink  nodes 

A  depth-first  traversal  of  the  sample  would  vist  the  nodes  n 
the  following  order: 

A  AA  AAA  AAAA  AAB  AAC  AACA  AB 


level  -  this  is  refars  to  the  deptl.  the  node  is  Iron  the  "raot"  node. 

Tor  eianple,  node  (A)  is  a  level  I  node;  nods  (AAAA)  is  a 
level  <  node. 


nods  -  this  is  an  elensnt  tn  the  hierarchical  o'  data  strseture.  All  the 
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Glossary  <oont) 


elements  In  th«  impli  in  nodes.  With  regard  to  worth 
assessment,  nodts  osn  bo  objectives  or  attributes  depending  on 
thotr  position  In  tho  troo. 


node  digit  -  Is  tho  nunbor  which  ststes  tho  position  of  t  nods  on  its 
sptn.  In  tho  simple,  tho  nods  digit  ot  nods  AAB  is  2.  The 
nods  digit  of  nods  AA  is  1.  Tho  nods  digit  of  AACA  is  1. 


nods  rsfeconee  number  (NRN)  -  tho  vector  which  points  tho  poth  through 

the  troo  from  tho  iop  down  to  *  porticulor  node.  Eoch  nods  hts 
o  unique  URN.  Tho  NRN  is  mode  up  ot  node  digits.  For  eeoh 
level  down,  on  additional  digit  must  bo  added  to  identify  a 
node.  For  oiampto  node  (AAAA)  has  a  NRN  ot  1  1  1  1 .  Node 
(AACA)  has  an  NRN  of  1  1  3  1.  Node  <AB>  has  an  NRN  of  12. 


parent  node  -  this  is  a  oonoept  of  hierarchies.  The  node  directly  in 
line  one  level  above  a  node  is  the  parent  node  to  that  node. 

In  the  eiample,  node  (A)  is  the  parent  of  nodes  (AA)  and  (AB). 
Node  (AA)  is  the  parent  of  nodes  (AAA),  (AAB)  and  (AAC). 


relative  weight  -  this  is  the  iaportanee  of  the  node  relative  to  its 

siblings.  These  weights  have  the  value  between  aero  and  one, 
and  the  sum  of  all  siblings  of  a  particular  parent  is  unity. 


root  (or  "root11  node)  -  this  is  a  concept  of  hierarchies.  The  root  node 
is  the  top  most  node  in  the  hierarchy  and  represents  the 
overall  objective  of  the  hierarehical  structure. 


sibling  -  this  is  a  ooncept  of  hierarchies.  Those  nodes  which  have  the 
same  parent  node  are  siblings.  In  the  eiample,  nodes  (AA)  and 
(AB)  are  siblings  as  are  nodes  (AAA),  (AAB)  and  (AAC). 


span  -  this  is  a  comoept  of  hierarchies.  This  term  is  associated  with 
any  given  set  of  siblings.  For  vaxmplt,  nodes  (AA)  and  (AB) 
are  on  a  span. 

value  -  this  is  a  conoept  of  worth  assessment.  Value  is  the  worth  of  a 
measure  ol  a  particular  attribute  for  a  given  alternative. 
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Th •  Decision  Analytic  Support  System  (DABS)  wet  originally 
developed  by  Bract  V.  Morlan  to  provide  user  oriented  automated  support 
to  decision  analyses  where  a  deterministic,  linear  additive,  and 
hierarchical  dsolsion  structure  eiists.  This  version  of  the  DAS3  was 
specifically  written  for  use  on  mi crooomputers ,  in  partioaiar,  the  Apple 
II.  Machine  requirements  for  running  the  DAS8  is  i4X  memory  (Apple  II) 
and  at  least  one  5  1/4  inch  floppy  disk  drive.  In  addition  to  those 
iunotlons  available  in  the  original  DASS  system,  additional  features 
have  been  added.  These  features  include  eapanded  sensitivity  analysis 
capability  and  computer  color  graphic  displays. 


Zvsty  loltwtti  tool  has  a  aat  o(  eapabtllttoa  and  liaitatlons.  The 
DABS  la  no  ssception. 

Caoab i 1 1 1 lta 

Tha  OASS  la  oapabla  of  analysing  a  daeiaton  analyala  structure 
which  la  d* t a raini s t i o ,  linaar  additive,  and  hiaratchieal  in  natara. 

Tha  prograa  allows  for  tha  us*  to  inpot  interactively  tha  traa 
structure,  relative  waighta  and  attribota  Tainan  through  tha  oaa  of 
various  prograa  options.  Tha  input  is  anhanotd  through  tha  uaar  of 
eoaputar  ganaratad  graphics.  Further,  the  prograa  autoaat ioal ly 
caluolatas  tha  cuaulativa  weight*  of  all  nodes  (also  known  as  oollasping 
th*  traa),  and  deteraines  tha  eoaposit*  value  of  tha  ‘root*  or  overall 
eblaotiva  nod*  as  well  as  all  intaraadiata  nodes  based  on  th*  attributes 
in  th*  tree  structure.  Th*  systaa  also  allows  th*  user  to  interact ivaly 
ascertain  th*  status  of  any  noda.  In  addition,  data  are  graphically 
displayed  and  incorporat*  color  for  quick  data  eianination  and 
evaluation. 

Tha  aost  inportant  faatur*  of  the  DASS  is  tha  ability  to  conduot 
interactive  sensitivity  analysas  iron  a  variety  of  parspact i vas .  Th* 
first  perspective  is  with  regard  to  tha  changing  of  th*  cuaulativa 


weight  of  a  nod*  to  the  overall  heirarohical  structure.  The  second  is  to 


Milsiti  the  effeot  on  the  ooloetion  of  the  boot  alternative  given 
pertebatic  of  tho  relative  weight  of  i  node  aaong  ito  tiblingo.  Tho 
final  para,  «©tive  it  to  asaaine  the  offoet  on  alternative  loioctioa 
batad  on  ohangot  in  value  fot  a  given  systea  attribute. 

Lint  tail  one 

There  are  teveral  liaitations ' that  are  associated  with  this  systea. 
The  liaitatione  are  aeeooiated  with  both  the  aodel  being  iapleaented  and 
the  aaohine  on  which  the  aodel  it  being  iapleaented. 

Ont  aodel  liaitation  it  that  the  entriee  for  the  attribute  valuet 
autt  be  in  terae  of  worth.  That  it,  the  aapping  of  the  attribute 
aeaturee  to  the  worth  value  have  already  taken  place. 

Another  aodel  liaitation  it  in  the  batlo  aetuaptione  of  the  linear 
additive  funation  used  in  the  aodel.  Thete  aaauaptione  are  attribute 
value  Independence  and  aarginal  rate  of  aubatitution.  Thete  aaauaptione 
are  especially  critical  when  conducting  sensitivity  enalyse*  when  large 
deviations  are  aada. 

An  additional  liaitation  with  regard  to  the  attribute  values  it 
that  they  all  aust  follow  a  "more  it  better"  philosophy  <that  it,  the 
higher  the  value  the  better)  or  a  "lass  is  better"  philosophy  (the  lower 
the  value  the  better). 

Machine  limitations  are  due  to  the  aeaory  constraints  of  the  Apple 
systea  (or  any  microprocessor  systea  tor  that  natter).  Thus  the 


following  restrictions  should  be  observed: 


MAXIMUM  NUMBER  OF  NODES:  IDS 


.  MAXIMUM  NUMBER  OF  LEVELS:  S 

0 

MAXIMUM  NUMBER  OF  SYSTEMS:  S 
MAXIMUM  NUMBER  OF  NODES  ON  A  SPAN:  S 

In  Addition  to  thooo  "oparatlonai”  linltitiona,  that  It  limitations 
whan  running  tho  program,  tharo  art  othor  limitation*  oonoorning  tho 
numb or  oi  toparata  data  tata.  For  tha  DASS  program  only  thro*  (1)  data 
tott  oan  ratida  oonourrantly  with  tha  DASS  program  whan  running  a  tingl* 
disk  systam.  II  mora  than  a  tingla  diak  syatam  it  ntad,  tha  aaoond  disk, 
whloh  eonld  bo  ntod  at  striotly  a  data  disk,  oan  oonlalu  np  to  11 
toparata  data  tats,  aaeh  tat  maating  tha  numarioal  limits  spteifitd 


Tha  tar*  "input”  rafara  to  all  data  which  ia  put  into  tha  program. 
Input  eomea  iron  two  aourcaa:  (1>  uaar'a  interactive  raaponaaa  to 
program  guaatlona  (prompts),  and  (I)  previously  antarad  and  atorad  data 
(ton  disk  files.  When  DASS  raquiraa  any  input  iron  tha  uaar  it  will 
writa  a  prompting  aaaaaga  to  tha  eonaola. 

Program  Control 

Tha  program  ia  oontrollad  by  uaar  raaponaaa  to  quaationa  or  by  naar 
aaiaotion  from  a  manu.  Salactiona  ara  mada  in  ona  of  several  waya:  (1) 
uaing  a  thrco  charactar  anamonio,  eonoiuding  by  dapraaaing  tha  RETURN 
kay  (aalaoting  a  major  option),  (2)  uaing  a  aingle  lattar  to  aalaot  from 
a  tabla  of  sub-options,  (3)  by  praaaing  tha  Y  or  N  kay  in  anawaring 
yaa/no  quaationa  poaad  by  various  option*. 

Eaoh  major  option  ia  diccuctad  briofly  in  tha  following  flow 
aaetion  concurrent  with  a  aimpio  oiampla.  Compiata  diacutcion*  arc  found 
In  tha  OPTIONS  caotlon. 

Convent i ona 

In  tha  diacuaalon*  to  follow,  all  eomputar  input  and  output  ia 
oapitaliiad,  aacapt  for  output  variable  value*,  alternative  lilting*, 


nod*  referanoa  number*,  and  option  name*,  in  whieh  oa*a  they  ara 


aeparatad  if  leaa-than  and  greater-than  Cigna  (  (isaia)  >. 

Tcrainaloaf 

Tkia  program  haa  aoae  epaoit'.e  tarna  with  regard  te  the  tree 
atruetore  and  elenenta  within  it.  Thaaa  tarma  ara  defined  below.  The 
reader  la  urged  to  rater  te  hppendii  i  ot  thia  thaala. 


III.  PROCRAM  FtOV 

The  following  discussion  of  tho  on  of  DASS  io  built  around  Iho 
hierarchy  shown  in  Figuto  1,  which  was  alsc  used  in  Captain  fforlan1^ 
woo k . 

In  tho  hsirarchy  shown,  tha  question  that  is  being  answered  is 
"which  of  the  available  systems  (F-4,  F-1S,  and  F-lll)  should  we  deploy 
to  a  forward  base?".  The  attribute  that  we  wish  to  determine  is  "the 
best  plane”,  which  has  been  described  in  terms  of  the  remainder  of  the 
tree.  At  the  point  when  we  begin  to  use  DASS,  we  have  a  strootnre 
(tree),  tentative  weights  for  each  node  and  values  for  each  alternative. 
The  values  for  each  alternative  have  been  normalised  to  fall  between  the 
values  of  0  and  100  for  eaoh  attribute  (the  bottom-most  node(s)  on  a 
liven  branch).  In  addition,  the  values  are  consistent,  that  is  to  say, 
that  the  eitrenes  (or  all  nodes  mean  the  same  thing  (in  this  oase,  all 
data  nodes  with  la-'ge  values  mean  that  the  particular  alternative  is 
very  good-  more  is  better)  (Figure  1). 

When  the  DASS  program  btgins  ((touting,  OPTION  SEL  (sea  (SECTION  IV 
for  details)  is  automat i cal iy  aiccuted.  Typing  NEW  to  the  question  as  to 
whether  the  file  name  entered  is  a  new  (Me  or  not  will  result  in 
OPTIONS  ATT,  TTL  and  SPA  to  be  automatically  ((touted. 

Option  ATT  prompts  the  user  to  enter  the  characteristic  that  the 


attribute  values  will  have.  Any  entry  sta.ting  with  an  R  will  be  treated 


tEV  option  to  insure  that  tho  tree  otraetoro  inserted  under  SPA  (above 
paragraph)  to  what  is  doslrad.  If  various  nodes  nood  to  bo  oithor 
tnsortad  or  deleted,  tho  options  NOD  (for  adding  nodos)  and/or  PRU  (for 
doloting  nodos)  shoold  bo  used. 

Vhon  tho  asor  is  satisfied  with  tho  troo  straetnro.  tho  user  should 
than  osooato  option  SYS  in  ardor  to  antar  tho  alternatives  (systems) 
that  ars  to  bo  oonsidorod  by  this  troo  straetnro. 

Nest,  the  user  will  need  to  one  tho  WVC  option  to  inpat  tho  various 
relative  weights  of  descendants  on  a  given  span,  and  to  input  tho  values 
of  tho  data  nodos.  After  entoring  tho  appropriate  weights  and  values, 
tho  tron  should  than  bo  calculated  in  order  to  determine  tho  relative 
rankings  of  tho  alternatives  under  considers! lrn. 

After  ositing  tho  WC  option,  the  user  will  aoro  than  likely  want 
to  eiaaine  the  rssults.  The  prograa  has  two  main  aethods  to  acooaplish 
thiv.  Those  are  options  DIS  and  NUN. 

Option  NUN  gives  a  nuaerical  review  of  soao  or  all  nodes  in  the 
data  structure.  Along  with  the  relative  weights  and  cumulative  weights 
of  a  given  node  (and  node  reference  nuaber),  the  values  of  the 
alternatives  (either  entered  or  calculated)  will  be  presented.  The 
review  can  be  routed  to  either  the  printer  or  the  console  (aonitor). 

Option  DIS  gives  a  review,  but  only  for  a  specified  node  and  that 
node  has  to  have  descendants.  Information  given  in  option  DIS  is  similar 
to  that  in  option  NUN;  however,  option  DIS  gives  the  added  option  in 
providing  a  graphical  display  of  the  node  and  its  descendants. 


On*  of  the  soft  important  aspects  of  th«  DAS3  system  is  its 


capability  to  provide  sonslti  .y  analysis.  Thv  sensitivity  analysts 
that  are  available  with  this  vorsion  of  DASS  allow  thv  variation  of  tba 
cuBolativv  weight  for  a  particular  nods,  the  variation  of  t.,»  rvlativo 
weight  for  a  particular  node  with  relation  to  its  siblings,  and  the 
variation  of  the  value  of  an  alternative  on  a  data  node.  It  is  through 
sensitivity  analysis  that  portions  of  the  tree  structure  can  be  singled 
out  for  further  investigation.  In  addition,  care  -eust  be  taken  in 
perforsing  sensitivity  analysis  on  the  cumulative  weights  doe  to  the 
nature  of  the  heirarohy.  That  is,  all  parts  are  linked  together.  Changes 
in  one  area  say  impact  assigned  values  in  appearently  unrelated  areas. 

Another  option  that  is  available  to  the  user  is  STA.  Tnis  option 
provides  current  data  concarning  the  tree  structure  which  is  ne:tssary 
to  insure  against  esceeding  the  capacity  of  the  various  data  files 
generated  by  this  program. 

The  final  option,  and  th«  most  important,  is  the  DON  command  whioh 
allows  the  user  to  elegantly  eiit  the  program.  This  program  sequentially 
eloses  all  open  files  and  returns  control  to  the  disk  systsm. 


Delating  old  flits 

Current  limitations  of  the  DASS  system,  only  allows  for  three  data 
seta  to  eaiat  on  a  single  d.rk  (see  LIMITATIONS).  Thuc  the  time  will 
come  that  the  user  will  want  to  deleta  old  files  to  make  room  for  new 
onei.  In  addition,  given  a  very  long  length  of  time,  the  user  may  forgat 


the  title  et  ion  files  anil  would  thou  have  to  rooort  to  getting  a  bow 
diet  ot  re-entering  the  data  (ilea.  The  following  gieee  a  eery  brief  bat 
complete  dieouceion  a*  to  how  to  remove  or  get  the  names  ot  old  files. 

When  in  the  Disk  Operating  System  (DOS)  mode,  depress  the  F  key. 

Yon  will  be  in  the  DOS  mode  when  yon  just  torn  on  power  to  the  maohine 
with  the  DAS3  disk  in  the  disk  drive,  or  after  eaiting  the  DASS  program 
via  the  DON  option.  This  will  invoke  the  FILER  program  which 
accomplishes  all  disk  operations.  When  assented,  the  console  will 
display  a  line  of  characters  which  are  various  options  available  to  the 
FILER  program. 

The  first  option  that  can  be  assented  is  done  by  typing  E.  This 
invokes  the  direotory  list  command  which  will  display  all  diskfiles  that 
are  on  the  disk.  After  pressing  the  E  key,  the  computer  will  respond 
with  DIR  LI  ST INC  OF  WHAT  VOL  t.  At  this  time  enter  an  asterisk  (*)  and 
depress  the  RETURN  key.  The  results  will  be  similar  to  that  shown  in 
Figure  2. 

The  first  column  indicates  the  names  of  filss  currently  on  the 
disk.  Those  files  which  end  with  SYS. DATA  or  NODE. DATA  represent  the 
data  sets  for  various  tree  structures  which  begin  with  the  first  three 
letters  preceding  SYS. DATA  or  NODE. DATA.  If  the  user  were  using  file 
names  when  eseeuting  the  DASS  program  less  than  three  letters,  the 
letters  X  will  be  used  to  fill  in  the  space  between  the  user  entered 
filename  and  three  characters. 

In  order  to.  remove  a  data  set,  depress  the  letter  R.  The  computer 
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will  respond  with  REMOVE?.  The  user  should  then  antsr  ths  fils  ntaa  that 
is  te  be  removed  (e.g.  ALPSYS. DATA)  and  eonetuds  by  depressing  ths 
RETURN  hag.  Ths  eomputer  will  than  rsspend  with  a  serif ication  message 
and  tha  osar  should  rtspond  by  dsprassing  Y  for  yas  or  anything  alas  far 
no.  In  aithsr 


LEES : 

SYSTEM. APPLE 

12 

2i 

-Jul«?9 

i 

Data 

SYSTEM. PASCAL 

34 

4 

-May-77 

38 

Data 

SYSTEM. MI SC1NFO 

1 

4 

-May-79 

74 

Data 

SYSTEM. FILER 

2t 

24 

-May-79 

7b 

Code 

SYSTEM. LIBRARY 

If 

10 

-No  v-BO 

103 

Data 

SYSTEM. CHARSET 

2 

14 

-Jun-79 

149 

Data 

OASS . CODE 

St 

7 

-Jan-S  l 

151 

Code 

ECHSYS . DATA 

1 

27 

-0ot-80 

207 

Data 

ECHNODE . DATA 

21 

7 

-.*an-8  1 

206 

Data 

ALPSYS. DATA 

1 

7 

-Jan-Bl 

231 

Data 

ALPNODE. DAT A 

23 

7 

-Jan-81 

232 

Data 

BETSYS . DATA 

1 

7 

-Jan-Bl 

2SS 

Data 

BETNODE . DATA 

23 

7 

-Jan-8 1 

254 

Data 

<  UNUSED  > 

I 

279 

13/13  files,  1 

unused , 

1 

in  largest 

Figura  2.  Dirsctory  Display 


east,  control  will  ba  raturnad  to  ths  FILER  prograa.  Not*  that  if  data 
sats  ara  to  bt  removed,  both  tha  SYS. DATA  and  the  NODE. DATA  Bust  ba 
removed  (a.g.  ALPSYS . DATA  and  ALPNODE . DATA) .  IN  ADDITION,  tha  user  must 
aiaouta  the  K  option  (compress  tha  disk!  in  order  to  aake  room  for 
subsequent  files  (the  file  structure  tor  this  computer  dictates  that  an 
unused  disk  space  bigger  than  the  file  sixe  be  available  in  order  to  be 
able  to  create  a  new  files  under  DASS) .  The  user  can  do  this  by 
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dapraaaing  the  X  key  and  raspond  to  the  aubaeqoent  question  with  an 
asterisk  (*)  and  depressing  tha  RETURN  key.  Another  question  will  ha 
aakad  aa  to  whathar  all  bloeka  ara  to  ba  eoapraaaad  and  tha  anawar  is 
Tea.  II  tha  user  inadiar t ant  1 y  dapraaata  another  kay,  othar  aaaaagu 
will  oaour.  Tha  uaar  at  thia  tiae  ia  urged  to  siaply  daprasa  tha  RETURN 
kay  and  raturn  to  tha  FILER  aeon. 

Altar  aeeoapl i ahing  tha  daairad  teaoeal  oparattena,  tha  seat  oan 
aait  tha  FILER  prograa  by  dapraaaing  tha  0  kay  which  will  return  tha 
«sat  to  tha  DOS  aano.  Tha  uaar  can  than  amenta  tha  DASS  prograa  by  tha 
aethoda  daacribed  praaioualy. 
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THE  MAIN  MENU 

MONET  1:  ATT  01 S  DON  MOD  NEW  NUN  PRU  REV  SEL 

SEN  SPA  STA  SYS  TTL  VVC 
OPTION! 

SITUATION:  Altar  tha  program  has  baan  initialised  (I. a. 

asaeuting  option  SEL>,  tha  main  menu  will  ba  displayed 
indicating  all  options  available  under  tha  currant  version 
of  DABS. 

REQ  ACTION:  Entar  tha  thraa  lattar  option  and  tha  RETURN  key.  Tha 
computer  will  raspond  with  prompts  assooiatad  with  that 
option.  Entaring  anything  alsa  will  result  in  PROMPT  1 
haing  rapaatad. 


OPTION:  ATT  (ATTribote) 


USE:  Thie  option  io  aood  to  enter  a  label  tor  tho  doeioion 

whieh  io  being  good.  Reaoonabla  rocponooo  oro  'VALUE*  <*oto 
io  better)  end  *  REGRET*  (looo  io  better).  Tho  rooponoo 
io  lator  good  to  proapt  tho  floor  lor  tho  valueo  (or  tho 
alternativee  being  concidorod  and  indicating  whieh  alternation 
io  tho  boot  (highoot  or  lowoct)  in  tho  eeneitivtty  analyoie. 

toooootottooa  CAUTION 

1.  ANY  ENTRY  STARTINC  WITH  THE  LETTER  R  WILL  BE  TREATED  AS 
RECRET  (LESS  IS  BETTER)  IN  THE  SENSITIVITY  ANALYSIS. 

ALL  CHARACTERS  STARTINC  WITH  ANY  OTHER  LETTEH /NUMERAL/  OH 
CHARACTER  WILL  BE  TREATED  A  VALUE  (HORE  IB  -BETTER)  IN  THE 
SENSITIVITY  ANALYSIS. 

•  iMtitiiiKi  CAUTION  oooetoooooooooo 

PROMPT  l:  ENTER  ATTIRBUTE  CHARACTERISTIC 

(RECRET  OR  VALUE ) 1 

REQ  ACTION:  Enter  attribute  charae t er io t i o ,  ending  with  the  RETURN 

key.  Tho  entry  can  be  any  length;  howeoer,  only  the  firot 


ten  oharaotero  will  be  retained. 


OPTION:  DIS  (Display  a  nod*  with  descendants) 

USE:  Th i *  option  will  display  tho  information  at  a  nod*  in  either 

tabular  or  graphioal  fornat. 

•••tliutiMitimnti  CAUTIONS  *•••»••••*•••*•«•*• 

1.  DIRECTING  THE  DISPLAY  TO  CO  TO  THE  PRINTER  WHEN  THE  PRINTER 
IS  NOT  AVAILABLE  WILL  RESULT  IN  A  PROGRAM  FAILURE. 

•  ••••••a**************  CAUTIONS 

PROMPT  t:  ENTER  NODE  TO  BE  DISPLAYED... 

ENTER... NRN? 

SITUATION:  Th*  n**r  i*  a*k*d  to  *nt*r  th*  nod*  r*f*r*no*  nu«b*r, 

lor  a  nod*  which  ha*  descendant*,  and  (or  whioh  th* 
display  i*  to  tak*  place. 

ACTION  REQ:  Enter  th*  NRN  and  oonolnd*  by  depressing  th*  return  key. 
Entering  a  NRN  which  is  non-eiistent  will  return 
control  back  to  th*  MAIN  MENU. 

PROMPT  1-A:  NODE  IS  A  DATA  NODE  AND  CANNOT  BE  DISPLAYED 
DEPRESS  HETUBN  TO  CONTINUE 

SITUATION:  Th*  NRN  entered  in  response  to  PROMPT  1  is  not  a  nod* 

with  descendants. 

ACTION  REQr  Depress  th*  RETURN  key  to  continue  th*  program. 

PROMPT  J:  WARNING. 

TREE  NEEDS  TO  BE  < RE ) CALULATED 
OUTPUT  VALUES  MAY  BE  INCORRECT 

PRESS  ANY  KEY  TO  CONTINUE 


SITUATION:  The  tree  itisetgri  has  bven  toIKlid  by  either  adding 


ACTION  RCQ: 

PROMPT  3: 
SITUATION: 


or  dolollng  nodoo,  or  adding  or  delating  alternatives 
and  hao  not  boon  re*computed  since.  This  aiani  that 
tho  weights  and  values  (or  sons  or  all  nodes  nay  be 
tnaoourats.  Tho  display,  however,  will  not  be 
inhibited  nor  can  it  be  aborted. 

Depress  any  key. 

TUBULAR  GfRAPHIC 

The  user  is  now  asked  as  to  whether  a  tabular  or 
graphisal  presentation  of  the  data  is  desired.  The 
tabular  (oraat  is  shown  in  Figure  I,  and  shows  the  node 
entered  in  PROMPT  1  as  wall  as  its  imBediste 

desoendents.  In  addition,  nuBerio  values  of  each  alternative 
(or  all  nodes  are  listed  as  well  as  the  cumulative  and 
relative  weights. 

The  graphical  (oraat  provides  siailar  intonation;  however, 
the  display  takes  on  the  aaptarance  illustrated  in  Figure 
4  with  the  nuaerio  values  (or  the  relative  and  cusulativo 
weights  being  displayed  and  the  values  of  the  alternatives, 
in  bar  graph  format,  being  displayed  underneath  the 
descendant  nodae  and  to  the  right  of  the  parent  node. 

An  a  1 1 erna t i ve / co 1 o r  legend  is  displayed  on  the  upper 
left  hand  corner. 


I? 


ACTION  REQ:  Pras*  Iht  T  or  C  kef  for  tko  option  desired.  It  T  is 
depressed,  PROMPT  <  will  ooonr. 


It  C  ia  depressed,  Figaro  S  will  bo  displeped.  Doprataing 
tap  othar  kap  will  ramlt  in  PROMPT  3  baing  rapaatad. 

PROMPT  4:  C CONSOLE  PC R INTER 

SITVAION:  Thia  proapt  will  ooctir  it  tha  T  kap  waa  dapraaaad  in 

raaponaa  to  PROMPT  3.  Thia  proapt  datarainaa  if  tha 
review  ia  to  aant  to  tha  conaola  or  tha  printar. 

ACTION  REO:  Dapraas  tha  C  or  P  kap  depending  on  tha  option 

doatrad.  Tha  output  will  appaar  an  ahown  in  Figura 
4.  If  tha  P  kap  la  dapraaaad.  control  ia  returned 
to  tha  MAIN  MENU  attar  tha  data  la  aant  to  tha  printar. 
Dapreaaing  anp  othar  key.  will  raault  in  PROMPT  4  baing 
rapaatad . 

PROMPT  5:  PRESS  ANY  KEY  TO  CONTINUE 

SITUATION:  Thia  pronpt  occur*  after  tha  tabular  diaplap  ia  produced 

on  tha  conaola.  Thia  eauaa*  a  tenporarp  pause  so  that  tha 
tha  user  can  eitaine  tha  data. 

ACTION  REQ:  After  aiaaining  tha  dlsplap,  press  anp  kap.  Control 
will  ba  returned  to  the  MAIN  MENU. 


it 


1  3 

COMBAT 

FACTOR  F-4  r-13  F-lll 

AIR-AIR  •  SO  00  90.00  20.00 
AIR-CND  «  SO. 00  20.00  43.00 
RECCE  •  30.00  19.00  40.00 

TOTAL  SO  .  00  40. 57  14.20 

FACTOR  (VT)  CUMVT 
AIR-AIR  •  <  .42)  0.24 
AIR-CND  •  (.42)  0.24 
RECCE  •  (.14)  .01 

TOTAL  S.S7 


The  above  (oraat  will  bo  toon  if  T  it  doprocood  in  rtoponoe 

to  PROMPT  3 

Lino  1  (I  3)  the  NRN  for  the  node  entered  in  PROMPT  1 

Line  2  (COMBAT  -)  the  label  tor  the  node  entered  in  PROMPT  I 

Line  3  (FACTOR  F-4  F-1S  F-lll)  liate  the  header  for  all 

iaaediate  deseendent  nodee  and  lists  horizontally  the 
alternative  label*  truncated  to  five  character*. 

Line*  4-4  list*  the  labels  of  the  immediate  deseendent  node*  and 
lists  values  (inputted  or  calculated)  for  each  alternativ 
The  asterisk  (•)  listed  to  the  right  of  the  label 
Indicates  the  node  as  a  data  nod*  (the  bottom-most 
nod*  for  that  branch). 

Lin*  7  (TOTAL  SO. 00  48. 57  34.28  )  lists  the  value  of  each 

altrnativ*  for  the  nod*  inputted  in  response  to  PROMPT  1. 

Lin*  4  (FACTOR  (V.  UHVT)  lists  the  header,  again 

lor  the  m  *  descendants.  The  (VT)  is  the  relative 

weight  *acn  jl.ng  (lines  7-11)  agaist  each  other. 

The  Cort«T  is  the  contribution  of  each  sibling  (lines 
7-11)  to  the  overall  decision  structure. 

Lins  12  (TOTAL  0.57)  indicates  the  amount  (relative  to 

1.00)  that  the  node  inputted  in  response  to  PROMPT 
1  contributes  to  the  overall  decision  structure. 


□  Da  DoD 


The  above  foraat  Mill  bo  eoon  If  C  to  doprttod  in  response  to  PROMPT 

J. 

The  parent  node  ie  Hated  at  the  top  with  the  values  calculated 
on  its  right.  For  each  descendant  node,  its  set  of  values  are 
listed  in  bar  graph  foraat  underneath.  Nodes  labeled  with  asterisks 
(*)  are  data  nodes.  Each  bar  is  colored  unique  * j  a  particular 
alternative  legend  in  the  upper  left  hand  corner. 

(REl  VT)  values  in  parentheses  are  values  of  each  sibling 

against  each  other.  For  COMBAT  (the  parent  node),  its 
relative  weight  is  in  relation  to  other  nodes 
(not  shown  in  the  display)  at  the  parent's  level. 

CUMVT  indioates  the  overall  contribution  of  the  node  to  the 
overall  decision  structure. 


OPTION:  DON  (DONa) 

USE:  Thi*  i*  tha  laat  option  atad.  Thii  algnala  that  tha 

uaar  if  finlahad  with  tha  prograa  and  tha  data  iilaa. 

Tha  prograa  will  oloia  <aa*ai  tha  iilaa  ineladlng 
appropriata  inioraation  oi  tha  traa  ftroetara  (naabar 
or  nodaa,  naabar  of  lavalt,  naabar  of  altarnativaa.  and  traa 
aeoaraep).  Tha  pregraa  will  tarainata  and  tha  DISC  OPERATING 
SYSTEM  aarn  will  ba  diaplayad. 

aaaaaaaaaaaaaaaaa  CAUTION 

(thara  ara  no  caationa  aaaoeiatad  with  thia  option) 
aaatoaaaatataaaaa  CAUTION 

«  • 

PROMPTS:  nona 


OPTION:  MOO  (MODity  (listing  tr»#  itructur*) 


USE:  Th 1 f  option  is  osod  to  Bodily  ths  trot  on#  nod*  «t  k  tlBt. 

Eseh  nods  tddrssssd  by  node  nftnnei  noabor  (NRN)  is: 

(1>  osskktsd.  it  nsessssry,  dong  with  its  prsds^sstors 
as  nscsffkry,  <Z)  ohkngod  in  Ikbol  only  if  it  drskdy 
ssists. 


«(»(••*•»•(•((•>••(•  CAUTIONS  •*•«•»**•*«•**•«* 

t.  ALL  NRNs  ENTERED  MUST  BECIN  WITH  1.  IF  ANY  OTHER  NUMBER 
IS  ENCOUNTERED  FIRST,  THE  TREE  STRUCTURE  (AS  KNOWN  BEFORE 
THIS  MODIFICATION)  VILl  BE  PERMANENTLY  LOST. 

Z.  ADDINC  MORE  THAN  FIVE  NODES  ON  A  SPAN  IS  POSSIBLE 
IF  ONE  OF  THE  SPANS  CONTAINED  IN  THE  NRN  ALREADY 
HAS  FIVE  NODES.  THE  RESULTS  OF  THIS  ARE 
UNPREDICTABLE  AND  MAY  PRODUCE  UNEXPECTED  OB 
UNDESIRABLE  RESULTS. 

3.  ANY  NUMBER  CAN  BE  USED  IN  ENTERING  THE  NRN  REQUESTED 
BY  PROMPT  I;  HOWEVER,  JF  A  GIVEN  SPAN  DOES  NOT 
EXIST  FOR  A  GIVEN  NRN  LEVEL,  THE  NRN  NUMBER  I  WILL 
BE  ASSIGNED  FOR  THAT  LEVEL. 

t.  THERE  ARE  NO  CHECKS  TO  GUARD  ACA INST  THE  OVERALL 

SIZE  REQUIREMENTS  OF  THE  TREE  STRUCTURE  GIVEN  EARLIER 
IN  THIS  TEXT.  THE  USER  IS  URGED  TO  USE  OPTION  STA 
AT  THE  CONCLUSION  OF  THIS  OPTION  TO  INSURE  AGAINST 
INADVERTENT  SIZE  VIOLATIONS. 

KIIIIIHIIHIMIIM  C  A  u  T  I  0  N  s  *»«•»»•#•*»»•***« 


PROMPT  1 :  ENTER  .  NRN? 

SITUATION:  Th*  ustr  if  «fk*d  to  *nt^r  th*  nod*  r*f*renc«  number 

whir*  th*  kdditlond  nod*  If  to  b*  «dU»d,  or  th*  '>b*I 
vf  th*  nod*  if  to  b*  chtngtd. 
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ACTION  REQ: 


Enter  the  NRN  end  conclude  by  depressing  the  RETURN 


PROMPT  l: 
SITUATION: 


ACTION  REQ: 


key.  Depreeeing  the  RETURN  key  without  eny  entry 
will  remit  In  control  being  returned  to  the  MAIN  MENU. 

LAIElf 

The  ueer  ie  eeked  to  enter  the  lebel  of  the  node(e) 
directed  by  PROMPT  1.  If  the  node  elreedy  eeiete, 

Just  the  lebel  of  thet  node  will  be  chenged.  If 
the  node  directed  by  the  NRN  doee  not  exist,  ell 
new  nodes  crested  by  the  NRN  entered  in  PHOMPT  1 
will  contein  the  entered  lebel. 

Enter  the  lebei  of  the  node(s>  end  conclude  by 
depressing  the  RETURN  key.  The  node  lebel  nay 
be  of  eny  length;  however,  only  the  first  ten  <10) 
cherecters  will  be  reteined.  Entering  DONE  end  depressing 
the  RETURN  key  or  depressing  the  RETURN  key  without  iny 
entry  wili  abort  this  option.  Control  will  be  returned 
to  the  MAIN  MENU.  If  a  label  was  inputted  in  response  to 
PROMPT  2,  PROMPT  1  will  be  repeated. 


OPTION: 


NEW  (NEW  data  fill) 


USE: 


This  option  ie  used  to  generate  •  now  troo  etraotere, 
either  with  th  .•  prooont  file  (it  (lit  name  i*  identical) 
or  a  now  tilo  naao .  If  tha  (lie  nave  roqoaet  bp  the  provpto 
ia  identical  to  the  tile  currently  in  nee.  the  tilo  will 
bo  destroyed. 


SEE  OPTION  SEt  FOR  THE  PROMPTS  AND  REQUIRED  ACTIONS 


OPTION:  NUN  <NUM«rlc  review) 


USE:  This  option  if  used  to  gonfrato  a  display  of  the  tree  structure, 

including  tho  nod*  riitrinci  number,  nod*  label,  relative 
weight,  cumulate  weight,  input  values  or  calculated  valces  lor 
each  node  and  alternative. 

ttmiumiiiiti  CAUTION 

1.  IF  THE  CTRL  AND  A  KEY  ARE  DEPRESSED  SIMULTANEOUSLY,  THE  OTHER 
HALF  OF  THE  SCREEN  WILL  BE  DISPLAYED.  WHILE  HOT  CATASTROPHIC. 
A  BLANK  SCREEN  MAY  OCCUR  WHERE  DATA  OR  MESSAGES  OUGHT  TO  BE 
DISPLAYED.  IF  IN  DOUBT,  DEPRESS  THE  CTRL  AND  A  KEY 
SIMULTANEOUSLY. 

2 .  DIRECTING  THE  NUMERIC  REVIEW  TO  CO  TO  THE  PRINTER  WHEN  THE 
THE  PRINTER  IS  NOT  AVAILABLE  WILL  RESULT  IN  A  PROGRAM  FAILURE. 

CAUTION 

PROMPT  I:  A (ll  S< ELECT 

SITUATION:  Thie  proapt  determine*  if  the  entire  tree  if  to  be 

reviewed  (ALL)  or  if  only  a  felected  node  i*  to  be 
reviewed  (SELECT) 

ACTION  REQ:  Depretf  the  A  or  S  key  for  the  option  desired.  If  the 

the  A  key  if  deprecstd,  the  rfograa  will  respond  with 
PROMPT  2.  If  the  S  key  if  depressed,  PROMPT  i-A  will 
appear.  Any  other  key  will  result  in  PROMPT  1  being 
repeated 

PROMPT  I -A :  ENTER . .  NRNt 
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SITUATION: 


ACTION  REQ: 

PROMPT  I: 
SITUATION: 

ACTION  REQ: 

PHOMPT  3: 

SITUATION: 


ACTION  REQ 

PROMPT  4 : 


The  S  ke y  hes  been  diprtnid  in  response  to  PROMPT  I  «nd 
the  user  it  now  nktd  to  input  tho  nodt  reference  nuahor 
(NRN)  for  which  tho  nuaoric  review  ie  to  teke  pitoe. 
Enter  the  node  reference  nuaber  end  conclude  with  the 
RETURN  key . 

C ( ONSOLE  PCRINTER 

Thi*  proapt  deterainee  it  the  review  ie  to  eent  to  the 
coneole  or  tha  printer. 

Depress  the  C  or  P  k'ey  depending  on  the  option  desired. 
If  C  is  depressed,  the  output  will  eppeer  es  in  Figure  4 
If  P  is  depressed,  the  output  will  eppeer  es  In  Figaro  7 

VARNINC. . . 

TREE  NEEDS  TO  BE  (RE )  CALCULATED 
OUTPUT  VALUES  NAP  BE  INCORRECT 

PRESS  ANY  REY  TO  CONTINUE 

The  tree  structure  hes  been  aoditied  by  either  eddtng 
or  deleting  nodes;  sdding  or  deleting  el  ternettves; 
or  chenging  node  weights  or  velues  end  hes 
not  been  celculeted  since.  This  aeens  thet  the 
weights  end  vetoes  for  soae  or  ell  nodes  aey  be 
ineccurete  The  review,  however,  it  not  inhibited. 

Depress  any  key 

(ANY  KEY)  CONTINUE  (ESC)  EXIT 
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SITUATION: 


When  i  (all  piji  el  eatpat  it  produced,  either  on  the 


printer  or  the  eontole,  the  eatpat  it  panted  to  thet 
the  ater  cm  eiieine  the  date.  Preeeing  any  key  Mill 
continue  the  eatpat.  Fretting  the  ESC  key  will  abort 
the  nametic  review  end  return  control  to  the  MAIN  MENU. 

ACTION  REQ:  Oeprett  any  key  or  the  ESC  key  depending  on  the  notion 

regalred. 

PROMPT  S:  PRESS  ANY  KEY  TO  CONTINUE 

SITUATION:  Ditpley  it  eonpleted-  Tbit  it  written  in  order  to 

allow  the  ater  tine  to  perate  the  latt  page  of  the 
nanerio  review. 

ACTION  REQ:  Prett  any  key  to  oontinae  the  program.  The  program 

will  return  control  to  the  MAIN  MENU. 


BEST  AIRCRAFT 

NODE  REF  NUMBER  LABEL 


REVIEW 


f-«  r-is  r-m 


REL  VT  CUMVT 


I  BEST  PLANE 
I  1  AERO 
i  1  1  HICK  ALT 
1  I  1  LOW  ALT 
1  2  SURVIVABLE 
1  3  COMBAT 
I  3  1  AIR-AIR 
I  3  2  AIR-CNO 
1  3  3  RECCE 


1.00 

1.00 

47. 

79 

3S 

04 

37 

01 

.14 

.14 

34. 

SO 

31 

.00 

47 

SO 

.30 

.04 

43. 

00 

00 

00 

30 

00 

.70 

.10 

30 

.00 

10 

.00 

ss 

.00 

.27 

.  29 

SO. 

.00 

00 

00 

40 

00 

.57 

.5? 

30 

.00 

40 

.57 

34 

.29 

.43 

.24 

so. 

.  00 

90 

00 

20 

00 

.43 

.24 

so 

.00 

20 

.00 

40 

.00 

.14 

.01 

so. 

00 

10 

00 

<0 

.00 

The  above  format  will  be  itin  in  P  is  depressed  in  response  to  PROMPT 
2.  Each  line  in  tits  tibia  contains  tha  following  information  (the 
third  lint  is  usad  as  an  example). 

1)  NODE  REF  NUMBER  LABEL  Mil  HIGH  ALT).  Tha  noda 
rafaranea  nonbar  <NRN>  is  givan  for  each  noda,  along  with  that 
noda's  labal. 

2)  REL  VT  (.30)  Tha  wleght  of  this  noda,  relative  to  its 
siblings  (1  1  2  LOW  ALT)  is  givan. 

3)  CUM  VT  (.04)  Tha  cumulative  waight  of  this  noda  relative 

to  tha  antira  tree  (its  contribution  to  tha  top  noda  calculated 
values)  is  givan. 

4)  ALTERNATIVE  LABELS-  F-4  F-13  F-ill  (45.00  00.00  30.00).  Tha 

values  for  tha  alternatives  are  givan.  These  are  either 

tha  inputs  values  (it  tha  noda  is  a  data  noda)  or  calculated 
values  (if  the  noda  is  an  inner,  branching  node).  These 
calculated  values  are  those  which  tha  user  would  enter  if  the 
branching  noda  ware  to  ba  replaced  with  a  data  noda,  and  tha 
values  entered  as  user  Inputs. 


REVIEW 


BEST  AIRCRAFT 
NODE  REF  NUMBER 

LABEL 

REL  WT 

CUNVT 

F-4 

F-1S 

F-lll 

1  BEST  PLANE 

1.00 

1.00 

1 

BEST  PLANE47 . 77 

55.04 

it. at 

1  1  AERO 

.14 

.14 

1 

a 

AERO 

34.50 

31.00 

47.30 

1  1  1  HIGH  ALT 

.30 

.04 

H1CH  ALT' 

45.00 

00.00 

30.00 

1  1  2  LOW  ALT 

.70 

.10 

LOW  ALT 

30.00 

10.00 

S3 .00 

1  2  SURV1 VABLE 

•  2* 

.27 

SURVIVABLE50 . 00 

00.00 

40.00 

1  3  COMBAT 

.57 

.37 

COMBAT 

50.00 

40.57 

34.27 

1  3  1  AIR-AIR 

.43 

.24 

AIR-AIR 

50.00 

70.00 

20.00 

1  3  1  AIR-CNO 

.43 

.24 

A1R-GND 

50.00 

20.00 

40.00 

1  3  3  RECCE 

.14 

.00 

RECCE 

50.00 

10.00 

40.00 

Tha  data  on  tha  left  aid*  of  tho  dashod  lint  will  bo  loan  It  tha  C  key 
la  dopraaaod  In  raaponaa  to  PROMPT  2.  In  order  to  ata  tha  data  an  tha 
right  aida,  dapraaa  tha  CTRL  and  A  key  at  tha  name  tine.  Oapraaaing 
tha  CTRL  and  A  kay  again  will  return  tha  diaplay  back  to  tha  latt  atda. 

Saa  Figure  6  for  farthar  infotnatlon. 


OPTION:  PRU  CPRUne  t r •• > 


USE:  Prone  t»  used  to  illilnti  Mlietid  brenohos  Ire*  the  tree. 

The  user  is  given  two  options  for  pruning:  <1>  prone  s  node 
»nd  ell  its  desoondents,  or  (2)  prone  only  the  deseendents 
of  s  node. 

iMiMtiitittritt*  C  A  U  T  IONS  eeeeeeeeeeeeeseeteee 

1.  ENTERING  AN  INCORRECT  OR  NON-EXISTANT  NODE  REFERENCE 
NUMBER  CAN  HAVE  CATASTROPHIC  EFFECTS  ON  THE 

TREE  STRUCTURE.  USE  OPTION  REV  OR  N’JN  TO  INSURE 
PROPER  NRN  ENTRY. 

2.  A  FORM  OF  TEMPORARY  PRUNING,  WHICH  DOES  NOT  ALTER  THE  TREE 
STRUCTURE  IS  TO  USE  VEICHTS  OF  0 . 0  FOR  THOSE  BRANCHES 
WHICH  WOULD  BE  PRUNED.  USE  OPTION  WVC. 

************ ******  CAUTIONS  ticeeeeeeeeeeieeeeeee 

PROMPT  1:  N( ODE « DOWN  DtOWN  ONLY  EiXIT 

SITUATION:  The  user  is  ssfcsd  to  seieeted  the  psrtiooltr  otothod 
of  pruning  the  tree  struetore. 

NODE •» DOWN  prunes  ths  node  entered  in  response  to  PROMPT  2 
«s  well  es  ill  deseendent  nodes. 

DOWN  ONLY  prunes  only  ths  deseendents  of  the  nods  entered 
in  response  to  FROMFT  2. 

EXIT  ssits  the  option  end  returns  the  control  to  the 

MAIN  MENU. 

ACTION  REQ:  Depress  the  N,  D.  or  E  key  for  the  desired  option. 


)0 


Depressing  the  N  or  D  key  will  result  in  PROMPT  1  tai 


on  to  bo  displayed.  Depressing  the  E  key  will  remit 
in  the  esit  of  this  procedure  and  retorn  to 
the  MAIN  MENU.  Depressing  any  other  key  will 
result  in  PROMPT  1  being  repeated. 


PROMPTS:  ENTER. . .NRN1 

SITUATION:  The  user  is  now  asked  to  enter  the  node  roferenoe 
nonber  for  the  node  on  which  the  pruning  is  to 
take  plaoe. 

ACTION  REQ:  Enter  the  NRN  and  conclude  with  the  RETURN  key. 


PROMPT  2-A:  YOU  CANNOT  PRUNE  A  DATA  NODE  WITH 
A  DOWN  ONLY  OPTION.  .  . 

PRUNE  TERMINATED  .  .  . 

<ANY  KEY)  CONTINUE 

SITUATION:  The  NRN  entered  in  response  to  PROMPT  2  was  a  data  node 
and  the  D  key  was  depressed  in  response  to  PROMPT  1. 
ACTION  REQ:  Depress  any  key.  The  progran  will  return  control 
to  the  MAIN  MENU. 


MESSAGE  I :  PRUNING  ... 

SITUATION:  This  nessage  will  indicate  that  various  pruning  operations 


are  underway.  Additional  periods  (.)  will  be  displayed 
as  sore  pruning  operations  are  initiated  and  completed. 
At  the  end  of  the  pruning,  control  of  the  program  will 
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OPTION:  REV  (REVlew  of  ilnotar*) 


USE:  This  option  is  used  to  generate  •  display  ot  tho  trot  stro  art 

The  nods  reference  naaber  ted  nods  label  art  giton  (or  east, 
nods  raviowod,  which  will  ho  tho  user  solootod  nodo  and 
all  its  descendants. 

iitmiiitiitiiii  CAUTION  satttttttttaaeoa 

1.  DIRECTING  THE  REVIEW  TO  GO  TO  THE  PRINTER  WHEN  THE 

THE  PRINTER  IS  NOT  AVAILABLE  WILL  RESULT  IN  A  PROCRAH  FAILURE 

Htttinmiittii  CAUTION  »«t»#t*tt*«»»toea 

PROMPT  1:  A<LL  S( ELECT 

SITUATION:  This  proapt  dotorainos  If  the  entire  tree  is  to  be 

reviewed  (ALL)  or  II  only  a  selected  node  is  to  be 
reviewed  (SELECT) 

ACTION  REQ:  Depress  the  A  or  S  key  for  the  option  desired.  If  the 

the  A  key  is  depressed,  the  prograa  will  respond  with 
PROMPT  2.  If  the  S  key  is  depressed,  PROMPT  1-A  will 
appear.  Any  other  key  will  result  in  PROMPT  l  being 
repeated. 

PROMPT  1-A:  ENTER... NRN) 

SITUATION:  The  S  key  has  been  depressed  In  response  to  PROMPT  1  and 

the  user  is  now  asked  to  Input  ths  nods  reietence  nnaber 
(NRN)  for  which  the  nuattic  review  is  to  takr.  place. 
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ACTION  REO:  Enter  the  node  referenoe  nuaber  end  conclude  with  the 

RETURN  key. 

PROMPT  2:  CfONSOLE  PtRINTER 

SITUATION:  Thie  prompt  determine*  it  the  review  i*  to  be  eent  to  the 

oonsole  or  the  printer. 

ACTION  REO:  Depres*  the  C  cr  P  kef  depending  on  the  option  desired. 

The  output  will  appear  as  in  Figore  8. 

PROMPT  3:  VARNINC... 

TREE  NEEDS  TO  BE  (RE) CALCULATED 
OUTPUT  VALUES  MAY  BE  INCORRECT 

PRESS  ANY  KEY  TO  CONTINUE 

SITUATION:  The  tree  structure  ha*  been  aodified  by  either  adding 

or  deleting  nodes;  adding  c:  deleting  alternatives; 
or  changing  weights  and  values  of  nodes  and  has  not 
been  calculated  since.  This  mean*  that  the 
weight*  and  values  for  sose  or  ail  nodes  nay  be 
inaccurate.  The  review,  however,  is  not  inhibited. 

ACTION  REO:  Depress  any  key 

PROMPT  *:  (ANY  KEY)  CONTINUE  (ESC)  EXIT 

SITUATION:  When  a  full  page  of  output  is  produced,  either  on  the 

printer  or  tne  console,  the  output  is  paused  so  that 
the  user  can  eraaine  the  data.  Pressing  any  key  will 


continue  the  output. 


Pressing  the  ESC  key  will  abort 


the  review  end  return  eentrel  to  the  MAIN  MENU. 


ACTION  REQ: 

PROMPT  S: 
SITUATION: 

ACTION  REQ: 


Oepreee  any  kef  or  the  ESC  kef  depending  on  the  notion 
reqoired. 

PRESS  ANT  KEY  TO  CONTINUE 

Diepltf  it  completed.  Thle  it  written  in  order  to 
•  How  the  oeer  tine  to  portico  the  laet  page  oi  the 
review. 

Freee  any  kef  to  oontinae  the  program.  The  program 
will  return  oontrol  to  the  MAIN  MENU. 


1 

B 

EST  PLANE 

1 

I 

AERO 

1 

1 

i  KICK  ALT 

1 

1 

2  LOW  ALT 

i 

2 

SURVIVABLE 

1 

3 

COMBAT 

1 

3 

1  AIR-AIR 

1 

3 

2  AIR-CND 

I 

3 

3  RECCE 

Figure  t.  REV  Format  (or  the  Concolt  or  Line  Printer 


OPTION: 


BEL  ( 8EL# o t  data  file) 


USE: 


PROMPT  I : 

SITUATION: 

ACTION  REO 

PROMPT  2: 
5IT.ATION 


This  option  io  used  to  aoloet  a  now  data  filo 

Hiutiitititir  CAUTION  »»**•  to »»»»•» t» 

1.  ENSURE  DISK  NAME  ENTRIES  CONCLUDE  WITH  A  COLON  (:) 

2.  IF  CREATINC  A  NEW  FILE  AND  THE  FILENAME  ENTERED  IS  THE 
SAME  AS  ONE  THAT  ALREADY  EXISTS,  THE  OLD  DISX  FILE  WILL 
BE  DESTROYED. 

J.  IF  THE  FILE  ASKED  FOR  IN  PROMPT  t  AND  2  DOES  NOT  EXIST, 
A  RESULTINC  COMPUTER  ERROR  WILL  OCCUR.  YOU  MUST  THEN 
DEPRESS  THE  SPACE  BAR  AND  RE-EXECUTE  THE  DASS  PROCRAM. 

uiiiuuiiint  CAUTION  ttttttttttttttttt 

ENTER  .DISK  NAME  TO  BE  USED 
(EC.  APPLEO.) 

Conputor  data  files  (or  the  DASS  prograa  art  catalogued 

t 

by  a  disk  nano  (voluae  nan)  and  file  naat. 

The  coaputer  at  this  point  is  nskin?  (or  a  disk  uaa*. 
Entst  the  nans  of  the  disk  Conclude  entry  with  a  colon 
(:)  and  the  RETURN  key.  !(  the  file  is  to  be  on  the 
saae  disk  with  the  DASS  prograa,  the  RETURN  key  by 
It  SCI  I  will  soil  ice . 

PLEASE  INSERT.  OIS7.  NAME)  AND  DEPRESS  RETURN 

The  coaputer  is  asking  that  the  user  insures  that  the 

dick  specified  in  PROMPT  t  is  ;  the  disk  drive 


ACTION  REQ 


Make  sore  that  the  disk  specified  in  PROMPT  1  is  in  ths 


disk  drive,  then  depress  the  RETURN  kef. 


PROMPT  3:  ENTER... FILE  NAME  TO  BE  ACCESSED 

SITUATION:  The  e  mpofer  is  asking  fer  the  particular  file  nave. 

ACTION  REQ:  Enter  the  file  name  of  the  desired  dote,  conclude  with 

the  RETURN  key.  The  file  nane  can  consist  of 
alphanumeric*  flatter*  or  numerical  digits)  and  the 
special  characters  minus  sign  (->,  right  slash  (/>, 
back  slash  ft),  and  underline  (_) .  The  file  name  oan 
be  anf  length;  however,  onlf  the  first  three  characters 
will  be  significant  and  used  by  the  program. 


PROMPT  d:  <CP>  OR  NEW? 

SITUATION:  Asking  if  the  file  already  ecists.  The  file  eaiets  if 

the  OASS  program  has  been  stopped  by  the  DON  or  SEL  option 
after  entering  the  fiie  name  entered  in  PROMPT*  1 
an.'  2. 

ACTION  REQ:  If  the  file  described  in  PROMPT  1  is  to  be  a  new  file, 

type  NEW  and  conclude  with  tilt  RETURN  kef.  The 
program  will  then  execute  options  ATT,  TTr. ,  and  SPA. 

If  the  file  described  in  PROMPT  1  and  2  is  an  old 
file,  press  the  RETl'.'iN  key  The  program  will  display 
the  MAIN  MENU 
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OPTION:  SEN  (SENaitlvlty  analytic) 

VSE:  Uaed  to  conduct  uniltlfltf  analyttt.  Tht  iilietid  noda'a 

weight,  relative  wilgkl,  or  in  tin  cate  of  o  dott  nodo. 
tho  »il«i  of  an  alternative,  io  allowed  to  tango  bttmoa 
o  ooor  ootootod  minimum  and  matimum  values.  Tho  trot  io  collopood 
with  tho  perturbad  appropriata  wtlght  lor  value),  and  tho  velvet 
of  tho  top  nodo  art  printed  or  plotted. 

HiimtiM  C1IITIOK  eteeeeeeteeee 

1.  USING  MIN  AND  MAX  VALUES  FAR  FROM  THE  ‘CORRECT'  VALUE  WILL 
CIVE  MATHEMATICALLY  CORRECT  NUMBERS,  HOWEVER  THE  VALIDITY 
OF  THESE  RESULTS  MAY  BE  SUSPECT  DUE  TO  THE  SYNERCISTIC 
INTERACTIONS  OF  VEICHTS  WITH  WEICHTS  AND  WEICHTS  WITH 
VALUES. 

•••**»*••»•  CAUTION  ttmuttmt 

MESSAGE  0:  WARNING  .  .  . 

TREE  NEEOS  TO  BE  {RECALCULATED 
REPORTED  VALUES  KAY  BE  INCORRECT! 

< ANY  KEY)  CONTINUE 

SITUATION:  Tht  trot  atruotore  hat  bttn  modified  fty  oithtr 

adding  or  daltting  nodes;  adding  or  delating  alternatives; 
or  changing  nodo  wtlghtc  and  valuta.  Tht  stnaitlvity 
analysis  will  not  bo  inhibited;  however,  valuta  calculated 
will  not  bo  valid. 

ACTION  RED:  Pratt  any  kty  to  continue  Iht  program  and  rttpond 
to  PROMPT  i  by  plotting  tho  E  key. 

PROMPT  l:  SENSITIVITY  OUMVT  RiELWT  V)ALUE  E)X!T 
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SITUATION:  This  proapt  la  to  aeoertain  tba  type  of  aenaitifity 
•nalyata  that  la  to  bo  aeeoapl iahed . 

CUHWT  -  my  tho  cumulative  weight  ot  a  nodo. 

RELVT  -  very  the  relative  weight  ot  a  node. 

VALUE  -  very  tho  value  o(  an  alternative 
at  a  data  nodo. 

EfIT  -  aait  eeneitivlty 

ACTION  REO:  Preee  tho  C,  H,  V,  or  E  key  depending  on  the 

option  doairod.  Preeeing  any  othor  key  will  reantt  in 
PROMPT  1  being  repeated. 

MESSAGE  I:  SENSITIVITY  ANALTBIB  FOLLOWS: 

PROMPT  1:  NRN  FOR  WHICH  <OPTION>  IS 

TO  BE  PRETURBED 
INTER. . .  NRNf 

SITUATION:  (OPTION)  indieatee  the  option  eoleeted  by  tho  near  in  PROMPT  1 

The  computer  ia  taking  (or  the  Node  Reterenoe 
Nnaber  (NRN)  tor  the  node  where  the  sensitivity  anaiyala 
la  to  take  place. 

ACTION  REO:  Enter  the  node  reterenoe  number  (NRN)  (or 
the  node  where  the  aenaitieity  ta  to  be 
aeeoapl i shed .  Any  eharacter  not  a  number  will  bo 
ignored.  End  the  NRN  entry  with  a  carriage  return  (RETURN  key). 


PROMPT  XA: 

SI TV AT! ON: 

ACTION  REO: 

PROMPT  2B: 

SITUATION: 

ACTION  REQ: 

PROMPT  3: 

SITUATION: 

ACTION  REQ: 


NODE  DOES  NOT  EXIST. . . 

< ANT  RET)  CONTINUE 

The  NRN  iniin!  by  tho  am  doao  not  oiiot  tn  tho  preaoat 
troo  otroototo. 

Pros*  any  boy  to  oonttnoo  progran.  Tho  ooapator  will 
roopend  with  PROMPT  X. 

NODE  NOT  DATA  NODE... 

(ANY  KEY)  CONTINUE 

Moooago  ocean  whon  tho  noor  hao  ooloetod  tho  VALUE 
option  and  tho  NRN  ooloetod  by  tho  noor  lo  not 
a  data  nod#  (t.o.  tho  bottoa-aoot  node  (or  that 
branch). 

Proof  any  boy  to  oonttnoo  progran.  Tho  ooapotor  will 
roopond  with  PROMPT  3. 

SYSTEMS  AVAILABLE 
(LIST  OF  ALTERNATIVES) 

ENTER  SYSTEM  TOR  WHICH  VALUE  IS 
TO  BE  FRETURBED.  .  . 

(LIST  OF  ALTERNATIVES)  Altorndtlvao  that  aro  oontalnod  in 
the  promt  troo  otractura.  Thio  proapt  occur*  only  whon 
tho  VALUE  option  lo  raqaaotod. 

Entor  on*  of  th*  altornati***  liotod  in  th* 

(LIST  OF  ALTERNATIVES)  ending  with  a  carriage  return 


(RETURN  bey) . 


PROMPT  »A:  SYSTEM  ENTERED  NOT  VALID 
(ANY  KEY)  CONTINUE 

SITUATION:  Th*  (fil»  by  the  met  In  tiipcRM  to  PROMPT  I 

woo  not  t bo  ooao  oro  lletod  in  tbo  (LIST  OP  ALTERNATIVES) 
<•00  PROMPT  3)  obooo. 

ACTION  REQ:  Pro**  ony  boy  to  eontinao  tbo  pregrea.  Tho  eoapotor 
•rill  ropoot  with  PROMPT  3. 

MESSAGE  2:  <NRN)  (NODELABEL) 

CURRENT  NODE  (OPTION)  IS  (VALUE) 

SITUATION:  (NRN)  Nod.  referenced  ontorod  by  Boor  In  PROMPT  2 

(NODE  LABEL)  Th*  tltlo  of  tho  nodo  idontlfiod  by  tho 
nodo  roioronoo  naaber  in  PROMPT  2 
(OPTION)  VIII  bo  oithor  CUMWT ,  RELVT  or  VALUE 
dopondont  upon  tho  choice  aide  In 
PROMPT  I. 

(VALUE)  Tho  procont  voioo  of  the  coauletiv* 

weight,  tho  rolotivo  weight,  or  th*  voluc 
of  tho  oltornetlvo  for  tho  nodo  identified 
in  tho  NRN  In  PROMPT  2. 

PROMPT  «:  MINIMUM  (OPTION)  <0-(MAX  VALUE  ALLOWED))  IS) 

SITUATION:  (OPTION)  Will  bo  either  CUMVT,  RELVT  or  VALUE 

depending  upon  th*  choio*  aid*  in 


(1 


prompt  i. 


(MAS  vuut  ALLOWED)  1  for  option*  CUMWT  or  RELVT 

tOO  for  option  VALUt 

ACTION  RIO.  Cntor  *  volo*  which  will  ho  and  «•  tho  lowor  li»lt 

In  tho  oonoitivitp  toilfiii  for  th*  option  oolootod  bp 
PROMPT  I.  Conclude  tho  ontrp  with  t  carriage  return 
(RETURN  hop).  Entered  vela**  below 
■ere  or  higher  then  tho  (MAE  VALUE  ALLOWED)  will 
reonlt  in  PROMPT  4  being  repotted. 

PROMPT  St  MAXIMUM  (OPTION)  ((MIN  VALUE)  -  (MAX  VALUE  ALLOWED))  ISf 
SITUATION:  (OPTION)  Option  oolootod  bp  PROMPT  1 

(MIN  VALUE)  Utor  inpot  ot I no  in  ronponoo  to  PROMPT  4 
(MAX  VALUE  ALLOWED)  Saw*  t*  PROMPT  4 
ACTION  REQ:  Th*  aoor  1*  to  enter  t  value  which  will  bo  a*od  to 
tho  oppor  Unit  in  tho  oonoitivitp  antipole  for  th* 
option  oolootod  bp  PROMPT  1.  Conelnd*  th*  ontrp  with 
*  carriage  return  (RETURN  hop).  Entered  value*  below 
(MIN  VALUE)  or  higher  than  th*  (MAX  VALUE  ALLOWED) 
will  recult  in  PROMPT  S  being  repeated. 

PROMPT  i  (OPTION):  T> ABULAR  GRAPHICAL  E)IIT 

SITUATION:  (OPTION)  Either  CUMWT,  REIVT,  or  VALUE  bt**d  on  th* 

option  oolecled  in  PROMPT  t 
Th*  conetivitp  tnalpci*  it  conplotod.  Th*  ecwputor 
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TABULAR  -  Tabulated  ulgu  let  arch  systoa,  «t  Ih*  top 
nod*,  lot  th*  two  oitrono*  «nd  tor  V  oqnslly 
opoood  points  intornsi  to  tho  interval  (Figaro  f). 

CRAFHICAL  -  Th#  graphioal  representation  of  tho 

analysis  with  th*  two  ostroaos  of  th* 
sonsitirity  intorvol  olong  th*  T-asls 
•nd  tho  values  tar  osoh  syttom,  it  tho  top 
nods,  slang  th*  I-ssis.  Eaeh  alternative  is 
oolor  oodsd  st  tho  top  ot  th*  display  (Figaro  10). 
HIT  -  Lotos  th#  sonstlvity  tnslyois  rantin*. 

ACTION  KEO:  Usor  is  to  pros*  th*  T,  C,  or  E  fcsy  to  display 

tho  analysis  in  th*  dssirod  nod*.  Pressing  any  othsr 
k*y  will  rosalt  in  PROMPT  i  b*ing  reposted. 

PROMPT  4A:  TABULAR:  C(ONSOLE  P(RINTER 

SITUATION:  This  proapt  will  b*  in  tarpons*  to  th*  T  key  being 

depressed  in  PROMPT  t Th*  eonpst*r  is  now  asking  as  to  wh*th*r 
th*  s*nsiti*lty  analysis  is  to  go  to  th*  console  or  th* 
tin*  printer . 

ACTION  PEQ:  Press  th*  C  or  P  key  to  **nd  th* 

sensitivity  analysis  output  to  *ith*r  th*  consol* 
or  th*  lin*  printer,  rtspac t i v# I y .  Pressing  any  other 
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kif  will  niglt  la  PROMPT  1  being  repeated. 


PROMPT  it: 
SITUATION: 


ACTION  RCQ : 


PROMPT  7: 
SITUATION: 

ACTION  RCQ: 


CRAPMIC :  NtORMAL  C ( ZPANOCD 

This  proapt  will  be  In  reepenee  te  the  C  key  being 
depressed  in  PROMPT  i.  The  coapnter  hee  accepted  the 
eaaaand  te  provide  a  graphical  display  of  the  eeaeitieitp 
analysis  and  if  new  aeking  fer  the  feraat  the  graph  le  to  take. 
NORMAL  -  the  Z-atia  will  be  labelled  frea  0  te  100  which  ie 
the  aiaiana  and  aaiiaoa  values  which  the  top 
node  oan  take. 

IZPANDEO  -  the  Z-atis  will  be  labelled  froa  the  leweat 
value  obtained  in  the  sensitivity  analyst* 

(te  the  nearest  10)  te  the  highest  value 
(te  the  nearest  Z0).  This  option  is  neraally 
used  te  separate  alternative  lines  ler  clarity. 

Press  the  N  or  C  key  based  on  the 
graphical  display  desired.  Pressing  any  other  key 
will  result  in  PROMPT  SB  being  repeated.  Upon  coapletion 
ef  the  graphleal  display,  depressing  any  key  will  result 
in  PROMPT  i  being  repeated. 

(ANY  KEY)  CONTINUE 

This  occurs  at  the  conclusion  of  the  tabular  printout 
at  either  the  line  printer  or  the  console. 

Press  any  kay  to  continue  the  prograa.  The  prograa  will 


4« 


pond  with  PROMPT  4. 


CUHVT 

SENSITIVITY  ANALYSIS 

FOR  SURVI VABIE 

NRN: 

1  2 

CUKVT 

F-t 

F-I3 

F-lll 

0.00 

44  #  f  « 

43.1 

14.7 

0.  10 

47.2 

40.4* 

17.2 

0.20 

47.3 

52.0* 

17.3 

0.  30 

47.0 

33.5* 

37.1 

0.40 

40.1 

37.0* 

11  2 

0.50 

40.5 

42.3* 

30.3 

0.40 

40.0 

44.0* 

It. I 

0.20 

47.1 

47.3* 

37.1 

0 . 00 

47.4 

71  0* 

17.4 

0.20 

47.7 

74.3* 

37.7 

I  .00 

50.0 

00.0* 

40.0 

Figaro  7  SEN  Ttbul»r  DlipUy 


OPTION: 


SPA  (SPAn  on  •  gloon  node) 


USE:  Thlo  option  it  oood  to  erooto  now  trot  otrnotnroc  by 

entering  tho  {Mediate  doooondonto  (ohildron)  to  nodoc. 
Tho  ooor  ontor*  tho  nodo  reference  nonbtr  (NRN)  (or  tho 
top  nodo  to  bo  proceeded,  ond  NRN*  oro  eatonatical ly 
generated  for  oil  oddltiono!  nodoo  oc  tho  aoor  ontoro 
lobolo  lor  tho  now  nodoo.  Tho  noor  ic  glvon  tho  option 
of  erootlng  doooondonto  for  oooh  now  nodo  orootod. 


CAUTIONS 


1.  ALL  OLD  DESCCNOrKTS  AT  A  NODE  ARE  LOST  IF  EVEN  ONE  NEW 
DESCENDENT  IS  ADOEO.  NOTE  THAT  IT  IS  POSSIBLE  TO 
EXIT  FROM  A  NEWLY  PROMPTED  NODE  BY  ENTERING  DONE  OR 
EXIT  OR  DEPRESSING  THE  RETURN  KEY. 

2.  A  YES  RESPONSE  TO  PROMPT  1-A  WILL  DESTROY  ALL  PREVIOUS  TREE 
STRUCTURE  DATA. 

I.  A  MAXIMUM  OF  100  NODES  CAN  BE  USED.  THE  PROGRAM  WILL  NOT 
CHECK  IF  MORE  ARE  ADDED.  UNEXPECTED  RESULTS  MAY 
JCCUR . 

4.  SPANNING  A  NODE  WITH  DESCENOENTS  WIIL  NOT  ONLY  RESULTS 
IN  ALL  THE  DESCENDENTS  BEINC  DESTROYED,  BUT  ALSO  REDUCES 
THE  TOTAL  NUMBER  OF  NODES  AVAILABLE  FOR  THE  TREE  STRUCTURE. 

IN  OTHER  WORDS,  THE  TREE  STRUCTURE  WILL  ONLY  BE  ABLE  TO 
CONTAIN  SOME  NUMBER  OF  NODES  LESS  THAN  100  IN  IT.  IF  SPANNINC 
ON  A  NODE  THAT  HAS  DESCENDENTS,  PRUNE  (USING  THE  PRU  OPTION) 
THE  DESCENDENTS  BEFORE  SPANNING.  THIS  WILL  INSURE  THAT 
ALL  100  NODES  ARE  AVAILABLE  IN  THE  STRUCTUP.E. 


CAUTIONS 


PROMPT  I : 


SPAN  NODES  .  .  .  A ( LI  S<  ELECT 


SITUATION: 


This  proapt  deteraines  where  i  new  structure  it  to  bo  con- 


ACTION  SCO: 


PROMPT  I -A: 
SITUATION: 


ACTION  REQ: 


PROMPT  1-B: 
SITUATION: 


■traetod  (ALL)  or  now  dooeondonto  »ro  to  bo  defined  for 
e  epeeifie  node  (SELECT). 

Oepreee  tbe  A  or  S  key  for  the  option  deeired.  If 
A(LL  ie  eeleeted.  PROMPT  l-A  will  occur,  elee  PROMPT  1-B. 
Depressing  any  other  key  will  result  in  PROMPT  I  being 
repotted. 

DO  YOU  WANT  TO  BUILD  A  NEW  TREE)  (Y/N) 

This  proapt  is  in  response  to  the  A  key  being  depressed  in 
response  to  PROMPT  i.  This  is  t  stfegutrd  to  prevent 
inadvertent  destruction  of  t  tree  structure.  A  yes 
response  will  start  building  the  tree.  A  no  response  will 
result  in  esiting  this  option  and  a  return  to  the  MAIN. 
MENU . 

Depress  the  Y  or  the  N  key  in  response  to  the  proapt. 
Depressing  any  other  key  wilt  result  in  PROMPT  1-A  being 
repeated.  A  Y  response  will  result  in  SCREEN  DISPLAY 
I  . 

ENTER. . . NRN) 

This  proapt  is  in  response  to  the  S  key  being  depressed 
in  response  to  PROMPT  I.  The  progran  is  asking  for  the 
specific  nod*  reference  nuaber  to  which  the  descendants 
are  to  be  added . 
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ACTION  REO:  Enter  the  node  reference  neaber  and  eonolede  with  tha 

RETURN  key.  A  valid  NRN  will  reenlt  in  SCREEN  OISPLAT  X. 
Entering  an  invalid  NRN  will  oaoae  program  oontrai  to 
return  to  the  MAIN  MENU. 

SCREEN  01  SPLAT  1  : 


SITUATION:  Thie  diopter  Indicate*  that  a  now  structure  is  to  bo 

developed. 

ACTION  REQ:  Enter  the  label  of  the  root  node  In  bos  noeber  1.  If  the 

label  is  Itss  than  IS  characters,  depress  the  RETURN  key. 
Vhen  bos  nuaber  2  Is  drawn,  respond  by  depressing  the 


RETURN  key- 


SCREEN  DISPLAT  2: 


CURRENT  HUNRER  OF  NODES:  nn 

SITUATION:  The  parent  nod*  i(  listed  »t  tho  top  of  tho  structure. 

The  progrea  will  then  drew  tht  wiro  end  tho  boo  for 
dososndent  1  *nd  woit  until  an  ontrr  i»  aade.  After  which 
tho  prograa  will  draw  the  boi  for  descendant  2  and  so  on. 
CURRENT  NUMBER  OF  NODES:  nn,  gi»es  tho  currant  number 
of  nodti  presently  in  the  atruoture  and  ia  inoreaentod 
aa  nodes  are  added  to  the  at  root  e. 

ACTION  REQ:  Enter  the  label  for  a  deacendent  and  if  leas 

than  10  characters,  conclude  with  the  RETURN  bey.  If 
no  deacendenta  are  to  be  added  or  if  the  last  deacendent 
has  bean  added,  enter  DONE  or  depress  the  RETURN  key  when 


the  neat  entry  ti.e.  nett  bot  is  drawn)  is  asked  for. 


SCREEN  DISPLAY  l  will  ba  rapaa  ■'  tor  aaah  noda  antarai 
aatil  tha  antira  traa  atroctnra  hat  baan  antarad.  ton 
can  aiit  tha  option  at  any  tlna  SCREEN  DISPLAY  S  ta 
•hewn  by  antaring  EXIT  in  tha  daaeandant  baa.  Whan 
tha  tinal  neda  labal  haa  baan  antarad  at  EXIT  baa  baan 
antarad,  tha  program  will  t a  torn  control  ta  tba  MAIN 
MENU. 


SO 


OPTION: 


ST  A  (tree  STA  tidies) 


USE:  This  option  displays  tho  oorrent  neaber  of  nodes  in  the  tc 

structure,  tho  nuaber  of  lovolo  in  tho  troo  structure,  mi 
tho  n«abot  of  alternatives  mltitif  by  tho  itoo 
otroetoro. 

mttHiiiiiiMMi  CAUTIONS  aeseeeteeseeteaee 
There  arc  no  eantiono  aoaooiatod  with  this  option 
•*•**»• *•***•**•*•  C  A  V  T  I  C  N  S  »»co»cot**»co#oo» 

PROMPT  1:  NUMBER  OF  NODES  na 

NUMBER  OF  LEVELS  nn 
NUMBER  OF  SYSTEMS  na 

(ANY  KEY)  CONTINUE 

SITUATION:  nn  roprooonta  various  numbers  which  would  indicate 

tho  number  of  nodes,  levels,  and  systaas. 

The  output  is  paused  so  that  the  user  oan  essaine  the 
various  statistics  with  regard  to  tho  tree  structure. 
ACTION  REQ:  After  etaaining  the  data,  press  any  key  to  continue. 

The  prograa  wilt  return  control  to  tho  MAIN  MENU. 


St 


SYS  (entering,  adding,  or  deleting  SYSteas) 


OPTION: 

USE:  Thin  is  need  te  enter  lebels  for  the  alternatives  (systems) 

being  eennidered.  These  ere  Inter  need  to  ptompt  the  nser 
to  prompt  the  oser  tor  mines,  end  ns  part  ot  various  dtsplofs 
end  review  formats. 

*****************  CAUTION  •»•*«»***•*»*•*«** 

1.  USING  THE  N(EW  SUBOPTION  WILL  NOT  DESTROY  ANY 
INFORMATION  THAT  CURRENTLY  RESIDES  IN  THE 
DATA  NODES.  IT  SINPLY  RELABELS  THE  ALTERNATIVES 
AND  INCREASES/DECREASES  THE  NUMBER  OF  ALTERNATIVES. 

*•••**»•**•*••*••  CAUTION  ••»•••»«•»*•***••• 

PROMPT  I:  A(DD  OfELETE  N(EV  ECSIT 

SITUATION:  The  user  is  asked  to  select  a  snboptlon.  They  are: 

ADD  add  a  new  alternative  to  an  esisting  list  of 
alternatives  (see  MESSAGE  1  and  PROMPT  X). 

DELETE  delete  an  alternative  to  an  esisting  list  ot 

alternatives  (s«e  PROMPT  3  and  MESSACES  2  and  3). 
NEW  oreate  a  new  set  of  alternatives  (up  to  a  nasiaum  of 
five)  (see  PROMPT  4  AND  MESSACES  4  an  5>. 

EXIT  esit  the  option  and  return  oontrol  to  the  MAIN  MENU. 

ACTION  REO:  Depress  tha  A,  D,  N,  or  E  key  for  the  option  ieslred. 

Pressing  any  other  key  will  result  in  PROMPT  :  being 
repeated. 
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MESSAGE  1: 


MAE  NUMBER  OF  SYSTEMS  EXCEEDED 


SITUATION:  Th*  A  kif  hu  tftptiiitd  In  tiiponii  to  PROMPT  1. 

There  are  ilrudp  (!*•  alternatives  being  iu|gt(i4  iptlait 
th*  tuinnt  tree  (tractor*.  Alter  th*  i* 

presented,  PROMPT  1  will  b*  repeated. 

PROMPT  2:  ADDING  SYSTEM 

l/BELt 

SITUATION:  Th*  A  key  has  fc**n  depressed  in  response  t«  PROMPT  1. 

Th*  eoapater  i*  new  asking  for  th*  title  for  th* 
alternative  that  is  wished  to  b*  added  bp  th*  os*r. 

ACTION  REQ:  Enter  th*  titl*  or  nsa*  of  th*  alternative  to  b* 

«dd*d.  Th*  titl*  e«n  b*  of  inp  length;  how*«*r,  only 
th*  first  t*n  (10)  character*  will  be  used.  Conclude 
th*  entry  bp  depressing  th*  RETURN  k*p.  Th*  coapoter 
will  respond  with  MESSAGE  2. 

MESSAGE  2:  USE  WC  FOR  ENTERING  VALUES  AND 

RECALCULATING  TREE 

SITUATION:  This  aessag*  is  printed  oat  te  sdeis*  th*  asor  that 

th*  asst  needs  te  enter  values  for  th*  alternative 
last  entered  at  all  data  node*.  In  addition,  the 
user  needs  to  recalculate  th*  tree  in  order  to  obtain 
correct  results  in  subsequent  reviews,  displays,  and 
sensi 1 1 v  1 1 i es  .  Th*  prograa  will  return  control  to 
PROMPT  l . 


SS 


PROMPT  3: 


SITUATION: 


ACTION  RCQ: 


MESSAGE  3: 
SITUATION: 


PROMPT  4: 


CURRENT  8T STEMS  .  .  . 

(ALTERNATIVE  •  !  > 

(ALTERNATIVE  «3> 

•  to. 

ENTER  SYSTEM  TO  BE  DELETED 

The  D  key  has  b*«n  (iptin«(  in  tuptnti  to  PROMPT  1. 
(ALTERNATIVE  (n>  tiliri  to  th*  non*  of  th*  alternative(s) 
which  or*  currently  ***lu*t*<l  hy  th*  present  tr«o 

•  tractor*.  Th*  u**r  is  now  «*lc*d  to  input  th*  name  of 
th*  alternative  (system)  which  i*  to  b*  deleted. 

In  order  to  **e4p*  fron  this  mod*  at  this  point,  enter  . 

«n  incorraot  alternative  n*m*. 

Enter  th*  n«m*  of  th*  slt*rn*tlv*,  from  th*  list  given 
in  th*  prompt.  Conelud*  entry  by  depressing  th* 

RETURN  k*y.  If  »  correct  *tt*rn*tiv*  lsbol  is  entered, 
the  program  will  respond  with  PROMPT  I.  Otherwise, 
the  program  will  respond  with  MESSAGE  3. 

SYSTEM  NOT  FOUND 

Th*  slt*rnitive  entered  in  PROMPT  3  was  not  tho  same  as 
that  listed  in  PROMPT  3.  The  pregram  will  return  control 
to  PROMPT  1  of  this  option. 

ENTER. . .SYSTEM  n  LABEL! 
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SITUATION:  Th#  N  kay  has  baaa  daprassad  in  rasponaa  ta  PROMPT  1. 

This  option  is  osad  whan  davaloping  a  now  teas  strwotora 
whata  a  sasaral  altarnatiaaa  art  to  ha  antarad  at  anoa 
and  any  old  data  is  maanlngless. 

ACTION  REQ:  Entar  tba  nan#  of  tha  gitan  systam  (alternation)  and  oanotoda 
by  daprassing  tha  RETURN  kay.  Tha  antry  ean  ha  af  any 
langth;  howasar,  only  tha  first  tan  (10)  eharaetars  will  bo 
isad.  PROMPT  4  will  than  ba  rapaatad. 

Altar  antaring  tha  last  systan,  and  thara  ara  lass  than  four 
al  tarnat  It#*  Jj#ing  investigated,  type  DONE  and  depress  tha 
RETURN  kay  or  prass  tha  RETURN  kay  alona.  MESSAGE  4  will 
appsar  and  oontrol  will  ratorn  to  PROMPT  1  of  this  option. 

MESSAGE  4:  NUN  Or  STSTEMS  n 

SITUATION:  Massaga  tails  tha  osar  how  aany  systans  (n>  that  wara 

antarad . 

MESSACE  S:  SORRY... YOU  MUST  ENTER  AT  LEAST  ONE  SYSTEM 

SITUATION:  Tha  RETURN  kay  was  dapr#ss#d  or  DONE  was  antarad  and 

thara  war#  no  systans  (al tirnat l»»s)  antarad. 

Tha  oonpotar  will  raspond  with  PROMPT  4. 


option: 


TTl  (TiTLa  of  tha  data  atrnetora) 


USE:  Till  option  ollotta  a  titla  for  latar  oao  at  a 

kaalar  to  oarlona  oatpot  aaaaarlaa. 

aaaaaaaaaiaaaaaaaaaaa  CAUTIONS  aaaaaaaaaaaataaaaao 
Thara  aro  no  oaotlona  aaaooiatad  with  thla  option, 
aaaaaaoaaaaataaaoaaaa  CAUTIONS  aaaaaaaataaaaaaaaaa 

PROMPT  I:  ENTER  A  TITLE  FOR  THIS  DATA  STRUCTURE 

SITUATION:  Tha  eompatar  la  raqoatting  that  tha  soar  antaro  a 
titla  for  tha  oorrant  data  atrnetora. 

ACTION  REO:  Entar  a  titla.  oonolodlng  with  tha  RETURN  hay.  Tha  titla  oan 
ha  any  longth;  howaoar,  only  tho  firat  40  oharaotara  will 
bo  ratainad. 


Si 


OPTION:  WVC  (Vaighte,  Valuea,  and  Caloula t lone) 

VfiC:  This  option  ia  naad  ta  aoeaaa  euboptione  far  entering 

weighta,  antar  valuatlone.  or  (ra)oaloalating  iatatlot 
ealeee. 

aeeeeaeeaeee. c  UIT  I  ONI 

SEE  SPECIFIC  SUBOPTIONS  FOX  CAUTIONS 
aaaaaaaaaata  C  A  U  T  I  0  N  S 


PROMPT  I:  WVC:  VfEIGHT  VCALUES  CALCULATE  EtXIT 

SITUATION:  Thia  initial  prompt  altel.ta  a  vuboption  which 

ia  to  ba  aalactad. 

VEICHT  Input  weighta  to  thoaa  nodaa  whloh  have 
doaeandanta  (aaa  naat  paga). 

VALUE  Entar  alternative  valaaa  at  tha  data 
nodaa  (aaa  naat  paga  pint  one). 

CALCULATE  Calculate  tha  vatuatione  f or  the  internal 
(branching)  nodaa.  Thia  ia  often  called 
'collapatng'  the  tree.  A  detailed  dleeaeelon 
of  the  CALCULATE  eaboption  followe. 

1EIT  Eiit  the  WVC  option  and  return  to  tha  main 

menu. 


ACTION  REO:  Deprave  the  V,  V,  C>  or  E  key  to  eelect  tha  deeirad 
option.  Depraeeing  tny  other  key  will  revolt  in 
PROMPT  1  being  repeated. 
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susoption  w< sight 


USE:  Thi*  inbeption  inpat  wilghtl  to  tktil  nod**  which  ht«« 
doooondonto . 


»•>*••*•«*«*  CAUTIONS  •••••»•****** 

1.  INPUT  or  A  NEGATIVE  WEIGHT  IS  NOT  DETECTED;  HOWEVER.  IT 
VOUSO  INVALIDATE  ALL  THE  CALCULATIONS  WHICH  USE  IT. 

2.  ENTERING  A  ZERO  FOR  ALL  WEICHTS  FOR  ANT  GIVEN  NODE  WILL  RESULT 
IN  A  PROGRAM  FAILURE. 

I.  THERE  IS  NO  ESCAPE  FROM  THIS  SUBOPTION  IT  AUL  IS  SELECTED 
UNTIL  ALL  NODES  HAVE  SEEN  WEICHTED. 

*•••*•***»••  CAUTIONS  **«»*****»«•• 

PROHPT  l:  WEICHTS:  At LL  8CELECT 

SITUATION:  Eliolt*  whether  oil  nod**  which  ht»*  d««o*nd*nts 

»r*  to  bo  **l*ct*d  or  t(  t  aoor  **loot*d  nod*  i*  t* 

bo  OhOSCu. 

ACTION  REQ:  Doproo*  th*  A  or  S  boy  depending  on  tho  option 

doairod.  If  A  i*  depressed,  PROMPT  1  *nd  on  will 
oooar .  II  *ny  other  key  other  then  A  or  S  i* 
depteieed,  PROMPT  1  will  b*  r*p**tod. 

PROMPTS:  ENTER... NRNt 


SI 


SITUATION:  The  SIELECT  option  h»*  boon  saleeted  »nd  tbo  prograa 
is  asking  (or  •  node  reference  nuaber. 

ACTION  REQ:  Entor  tbo  nodo  roloroneo  nuaber  and  conclude  with 
tho  RETURN  bay. 

PROMPT  JA:  NRN  ENTERED  IS  INVALID 
(ANT  RET)  CONTINUE 

SITUATION:  Tho  nodo  raloraneo  noabar  olieitod  by  PROMPT  X  to 
not  a  nodo  which  has  dosoondonts. 

ACTION  REQ:  Press  any  bay.  Tho  eoapotor  will  respond  with  PROMPT  X. 

PROMPT  1:  OLD  VTS  NEW  VTS  NORMALIZED 

DESCENDENT  «1  XX 

OESCENOENT  «N  XX 

SITUATION:  Tho  labels  o(  tho  dcscandont  nodes  are  listed  ae  wall 

as  tho  oorrant  noraaiisad  <i.o.  tho  sun  equals  1)  weights 
aoltipliad  by  100. 

ACTION  REQ:  Enter  U:<.  relative  weights  anong  the  descendants  listed. 

Conclude  each  entry  by  depressing  the  RETURN  key.  Entries 
need  not  equal  100. 

ARC  THESE  VEICHTS  OKAT?  (T/N) 


PROMPT  t: 


SITUATION:  Th*  new  weights  have  been  neruliiil  (t«m<  to  HOI. 

Too  or*  asked  to  whether  ths  weights  entered  are  ao 
desired.  A  yea  response  will  roaott  in  PROMPT  S.  A 
ao  roaponso  will  reaolt  in  PROMPT  A  being  repeated. 

ACTION  REQ:  Depresa  the  T  or  N  key.  Conclude  bp  depresaing  the 
RETURN  kap. 

PROMPT  S:  ENTER  RATIONALE  TOR  VEICHTS 

(MAX  <0  LETTERS) 

SITUATION:  Too  are  aaked  to  enter  anp  oowaents  conoerning  the  loot 
inserted  weights. 

ACTION  REQ:  Enter  anp  consents  aa  desired.  The  entered  rationale 
»ap  be  op  to  100  characters  in  length;  however,  onlp 
the  drat  iO  will  be  aignilicant. 

NOTE:  IF  A  WAS  SELECTED  FOR  PROMPT  1,  PROMPTS  3  THRU  S  WILL  BE 

REPEATED  UNTIL  THE  ENTIRE  TREE  HAS  BEEN  WEIGHTED 

AT  THE  COMPLETION  OF  THIS  SUBOPTION,  CONTROL  WILL  BE 
RETURNED  TO  OPTION  WVC . 


to 
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SUBOFTION:  V( ALUES 


VSE:  Thi*  eoboptlon  input*  value*  to  th*  diti  nod**  (or  ooob 


C  A  U  T  I  0  N  S 


1.  Alt  NEW  VALUES  OF  ALL  ALTERNATIVES  FOR  THE  GIVEN  NODE  ARE 
SET  TO  ZERO. 

1  THE  ONLY  VAT  TO  SAVE  NEW  VALUES  FOR  THE  NODE  IS  TO  USE  THE 
EtEIT  VALUE  SUBOPTION. 


I.  THE  USER  MUST  UNDERSTAND  THE  MEANING  OF  THE  VALUES  BEFORE 
ENTERING  THEM.  VALUES  CAN  ONLY  BE  SCALED  FROM  0  TO  100. 


CAUTIONS 


PROMPT  l:  VALUES:  A<ll  5 (ELECT 


SITUATION:  Elicit*  whether  *11  nod**  whioh  have  d**cendent*  tr*  to 


i(  •  ««•(  **I*etod  nod*  ic  to  bo  oho**n. 


ACTION  REQ:  Doproi*  th*  A  or  th*  S  key  depending  on  th*  option 

d**ir*d.  If  A  i*  d*pr****d,  th*  progran  will  proceed 
to  th*  SCREEN  DISPLAY.  An  S  will  r**alt  in  PROMPT  Z. 
Any  other  k«y  will  remit  in  PROKPT  1  being  repeated. 


PROMPTZ:  ENTER... NRNI 


SITUATION:  Th*  StELECT  option  ha*  b**n  (elected  and  th*  prograa 

i*  aeking  tor  a  data  nod*  reference  nuaber. 


ACTION  REQ:  Enter  th*  nod*  reference  noaber  and  oonclod*  with  th* 


j 


RETURN  key . 

PROMPT  2A:  NRN  ENTERED  IS  INVALID 

(ANY  KEY)  CONTINUE 


SITUATION:  The  nod*  reference  nueber  (elected  in  reap 

PROMPT  2  it  not  •  do  to  node. 


ACTION  REO:  Proto  ony  koy.  The  eoapeter  will  ropoot  PROMPT  2. 


SCREEN  DISPLAY: 


VALUE:  A ( BORT  BUCK  SUIT  N<  EXT  (ESC) 


NRN:  1  2  I 


NODE  LABEL 


OLD  VALUE 


NEV  VALUE 


□Oo 

ALTERNATIVE 

OLD  VALUE 

NEV  VALUE 


SITUATION:  Thlt  ditploy  will  opptor  lor  tho  select'd  dote  node 

if  S  wot  depreti  in  PROMPT  1  or  for  etch  dote  node  in  tar 
1 f  A  wee  depretted . 


<2 
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1.  NODELABEL  represents  the  1 1 1 1 •  of  tho  dot*  node 

that  tho  alternative  values  aro  tntorod 
for . 

1.  OLD  VALUES  roproaanto  in  bar  graph  foraat  tho 

carrant  values  of  given  alternatives 
for  tho  proaont  node.  Each  alternation 
haa  a  distinctive  oolor  (orange, 
fiolot,  blue,  groan,  or  white)  and 
ie  identified  by  item  4  (below). 

1.  NEW  VALUES  repreeentf  in  bar  graph  foraat,  the 

near  supplied  value;  of  given  alternativee 
for  the  prevent  node.  Each  alternative 
has  its  own  eolor  as  in  the  OLD  VALUE. 

4.  ALTERNATIVE  lists  the  ntae  of  a  gi/en  alternative 

sorroonded  by  its  distinctive  color. 

5.  OLD  VALUE  lists  the  ituaeric  value  of  the  alternative 

color  bar  in  itea  Kabove),  and  labeled 
in  itea  4  (above) . 

4.  NEW  VALUE  Area  where  the  user  inputs  the  new  value  of. 

the  alternative.  At  the  coapletion  of  the 
entry  (RETURN  key),  the  appropriate  color 
b."'  will  be  drawn  to  redact  the  user 
Input  . 

(3 


OPTIONS  UNDER  VALUE: 


A( SORT  Abort*  oil  ohangos  nidi  bp  th*  «i«r 

tnd  rmnt  th#  nod*  with  tto  original  itlui. 
Th*  program  will  prociid  to  th*  no*t  nod* 
or  th*  WVC  had  depending  on  th*  r**pon**  to 
PROMPT  1  of  VALUES. 

Co**  book  to  th*  iamodiot*  pr*d**dlng 
olternotivo  without  chonglng  the  vein*  e!  th* 
pr«**nt  alternative. 

E*1 t  th*  pr***nt  nodi,  ond  •***  th*  *lt*rn*ti»* 
vole**  os  indicated  in  th*  NEW  VALUE  groph. 

< I  tin  S  above) . 

NtEET  Co*s  to  th*  noit  oltcrnoti**  without  updating 

th*  islu*  in  th*  NEV  VALUE  bar  groph  (Itia  3 
obov*)  (or  the  present  iltcrnoti**. 

(RETURN)  digressing  th*  RETURN  top  oopios  th*  *oIu*  of 
th*  OLD  VALUE  <!tim  1  sbov*)  ior  th*  given 
altirnotiv*  to  th*  NEW  VALUE. 

diprissing  thi  ESC  Lip  will  short  thi  VALUE 
•ubsption  r*gordliss  si  to  whsthir  oil  nodes 
or  «  silictid  nodi  wos  nqoistid.  Th*  progrsu 


B(  ACK 


E' JIT 


<  ESC) 


EUIOPTION:  CALCULATE 


USE:  CtlealiU  the  value  let  the  Utirnil  (branching)  nodes. 

Callapsaa  tha  tree.  Raaata  warnings  in  main  aptlana  SEN,  IEV, 
018,  and  NUN.  Oataiia  of  Sow  tha  calculation*  are  oarriad  ant 
ean  ba  foond  in  tha  Pregrammar ‘a  Manual  of  this  document. 

eaaaataaaaa*  CAUTIONS  «»a»»aa»a**a* 

Thara  ara  ne  cautions  associated  with  this  sobeption. 
ataaatataaee  CAUTIONS  »»»»»a**a*a»t 

NESSACE  1:  CALCULATING  TREE. . 

SITUATION  Massage  appears  as  traa  is  being  eallaspad.  Additional 
periods  ara  added  to  the  message  to  indicate 

that  oalcalattons  ara  still  going  an.  At  the  aamplatian 
of  tha  calculations,  central  will  ba  returned  to 
OPTION  WVC. 


V.  SAMPLE  SESSION 


The  following  low  paragraph!  will  deaonctrate  tho  noo  of  tko  DABS 
through  a  oaapla  ootaion.  Tho  objective  of  thio  soooion  will  bo  to 
Inotall  tho  hierarchical  otrueture  chown  in  Figaro  1,  condaet  a 


euaulative  oencitivity  analytic  on  tho  nod*  SUHV1VABLE,  and  than  to  oalt 
tho  prograa. 

Daring  thio  prolongation,  tho  eoapntor  rocponooo  will  bp  profltod 
by  COMPUTER:,  whilo  tho  aoor'o  rocponoo  will  bo  profited  by  USER:,  hap 
aide  notoo  regarding  opoeifie.  aetiono  will  bo  anoloood  bp  parontheoec. 


In  addition,  entrioa  whieh  required  tho  doproooing  of  tho  RETURN  hop 
will  bo  indicated  bp  tho  opabol  for). 

After  turning  on  the  opotoa,  tho  uoor  chould  deprooo  tho  S  hop  (to 
oaoeute  tho  prograa)  and  than  type  DASS  and  ^epreoi  tho  RETURN  hop. 


COMPUTER : 

ENTER. . .DISK  NAME  TO 
(E.C.  APPLEO) 

HE  USED 

USER: 

<cr  > 

COMPUTER: 

PLEASE  INSERT  AND  DEPRESS  RETURN 

USER: 

<er ) 

COMPUTER : 

ENTER. .  FILE  NAME  TO 

BE  ACCESSED 

USER: 

EXA  <  or  > 

COMPUTER: 

<CR>  OR  NEW 

USER: 

NEW  <cr>  (Craata  t 

now  data  filo) 

COMPUTER: 

ENTER  ATTRIBUTE  CHARACTERISTIC  (RECRET  OR  VALUE>» 

•.HI.' 


r 


i'- 


I 

C-  - 

•  . 

I 


I 


USER:  VALUE  (oil 

COMPUTER:  ENTER  A  TITLE  EOR  THIS  DATA  STRUCTURE 

USER:  BEST  AIRCRAFT  <et> 

COMPUTER:  SPAN  NODES.  .  .  A(LL  SC  ELECT 

USER:  A 


COMPUTER:  DO  YOU  WANT  TO  BUILD  A  NEW  TREE!  O/M) 

USER:  T 


COMPUTER: 


USER:  BEST  ACFT  Cer> 


COHPUTER : 


US1 


Cor  > 


COMPUTER : 


USER: 

COMPUTER: 


USER: 
COMPUTER : 


BEST 

ACFT 

PERFORMANCE  (NOTE:  th«  DASS  only  illtwi  10  oharaetar 
itbils.  It  ltbili  *  r  t  grulir  than  t 
eharaetars,  do  not  dtproao  tho  RETURN  boy) 


BEST  ACFT 

PERrORHANC 

SURV1 VABLE 


USER: 


COMBAT  (or) 


COMPUTER: 


USER: 

COMPUTER: 


USER: 

COMPUTER : 


USER: 
COMPUTER : 

USER: 


<«() 


PERFC 

1RMANC 

HI  ALT  <er>  <Th«  uaar  than  antara  tha  rtminlng  nodaa 

patting  on  daaoandanta  ••  raqoaatad.  Tba  iaat 
entry  ia  atatad  balow) 


RECC! 

P 

<er> 

ATT  01 S  DON  MOD  NEW  NUM  FRU  REV  SEl 

SEN  S«A  STA  SYS  TTL  VVC 

OPTIOM 

STS  (or) 
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COMPUTE! : 

USE!: 

COMPUTE!: 

USE!: 

COMPUTE!: 

USE!: 

COMPUTE!: 

USE!: 

COMPUTER: 

USE!: 

COMPUTER : 

USER:  . 

COMPUTER: 

USER: 

COMPUTER: 

USER. 

COMPUTER : 

USER. 

COMPUTER: 

USER: 


A(DD  D( ELETE  N(EV  E<EIT 
N  (M«ti  bo  <et>> 

ENTER . . . SYSTEM  1  LABEL? 

F-4  <or> 

ENTER ...  SYSTEM  Z  LABEL? 

F-IS  <Of) 

ENTER. . .SYSTEM  »  LABEL? 

F-I1I  <et> 

ENTER. . .SYSTEM  4  LABEL? 

<er> 

A (DO  D( ELETE  N(EW  E(E1T 

E  (Koto  no  (Ot>> 

ATT  01 S  DON  MOD  NEW  NUM  PRU  REV  SEL 

SEN  SPA  STA  SYS  TTL  WC 

OPTION? 

WC  (or)  (Entor  weight*,  filui  tnd  oileoloto  troo) 

WC:  VCEICHT  VfALUES  C  CALCULATE  ECIIT 
V  (Entor  tho  rthtWi  wilghti  on  tho  (pint) 


VEICHT.  A(LL 

S( ELECT 

A 

OLD  VTS 

NEV  VTS 

NORMALIZED 

PERFORMANC 

0 

SURVIVABLE 

0 

COMBAT 

0 

1  <or  > 

2  <«r  > 

4  (or> 
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COMPUTER 


COMPUTER:  WC:  V(EJCHT  VtALUES  CALCULATE  E(ZIT 

USER:  V  (Enter  alternative  valuta  of  the  attributes) 

COMPUTES-  VALUES :  A(ll  StELECT 

USER:  A 
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CONFUTED : 


VALUE :  A ( SORT  BUCK  E(XIT  N(EXT  <IBC> 


I 


NRN:  1  t  1  |  HI  AIT  | 

OLD  VALUE  NEV  VALUE 


1 


P 


*  - 
%  . 

v-, 

•  •' 

£ 

M 


ALTERNATIVE 
OLD  VALUE 
NEV  VALUE 


M 


0.0 


USER:  43.0  (or) 

COMFUTER:  VALUE:  A ( SORT  BUCK  E(XIT  N( EXT 

NRN: 1  1  1 

OLD  VALUE  NEV  VALVE 


l".-UTl 


□  _ 


ALTERNATIVE 
OLD  VALUE 
NEV  VALUE 


r-is 


0.0 


USER:  10  (or) 


(ESC) 
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COMPUTER: 


USER: 

COMPUTER : 

USER: 

COMPUTER: 

USER: 
COMPUTER : 

USER: 

COMPUTER: 

USER: 


VALUE:  A( BORT 

MRN.l  1  2 

OLD  VALUE 


B< ACX  E  ( X  IT  NtEXT  (ESC) 


LO  ALT 


NEW  VALUE 


ALTERNATIVE 
OLD  VALUE 
NEW  VALUE 


(Enter*  th*  worth  ulmi  for  oil  ronoining  nod**) 


WVC:  W<  EIGHT  V(ALUES  CALCULATE  E(XIT 
C 

CALCULATING  TREE . 

WVC:  W( EICHT  VULUES  C ( ALCULATE  E(IIT 
E 

ATT  DIS  DON  MOD  1£V  NUM  PRU  REV  SEL 

SEN  SPA  STA  STf  TTL  WVC 

OPTION* 

NUM  (or)  (Conduct  nanorlo  review  to  got  Nod*  R*f*r*ne* 
No»b*r) 

A(LL  S ( ELECT 

A 


COMPUTER: 


C ( ONSOLE  P(RIKTER 


COMPUTER: 


■CRT  AIRCRAFT 

NODE  REF  HUMIC R  LABEL 


REL  VT  CUMVT 


1  BEST  PLANE 

1.00 

1.00 

t  1  AERO 

.14 

.14 

1  1  t  KICK  ALT 

.30 

.04 

1  1  2  LOV  ALT 

.70 

.10 

t  3  SURVI VABLE 

.17 

.37 

1  3  COMBAT 

.37 

.57 

1  1  1  AIR-AIR 

.43 

.34 

1  3  3  AIR-CND 

.43 

.34 

1  3  3  RECCE 

.14 

.00 

PRESS  ANY  KEY  TO  COKTIKUE 


USSR:  (Dapraaa  tha  CTRL  and  A  kay  al»ol tanaooaly > 


COMPUTER : 


LABEL  F-4  P-tS  r-lM 


REST  nAHE47.JP  5S.04  37.01 
AERO  34. 50  31  .00  47.50 
HIGH  ALT  45.  DO  10.00  10.00 
LOV  ALT  30.00  10.00  53.00 
SURV1VABIE50 . 00  10.00  40.00 
COMjAT  50.00  41.37  34.37 
AIR-AIR  50.00  70.00  30.00 
AIR-GND  30.00  30.00  40.00 
RECCE  30.00  10.00  40.00 


USER:  (Oapraaa  tha  CTRL  *nd  A  kay  ai*ol tanaoaaly) 


COMPUTER : 


1  BEST  PUNE  1.00  1.00 

1  1  AERO  .10  .10 

1  1  1  H1CH  ALT  .10  .00 

1  1  2  LOW  ALT  .70  .10 

1  t  SUP.VI  VABLE  .  *7  .17 

1  3  COMBAT  .57  .57 

1  3  1  AIR-AIR  .01  .30 

1  i  2  A1R-GND  .03  .20 

1  3  3  RECCE  .10  .08 

PRESS  ANY  KEY  TO  CONTINUE 

USER:  (er> 

COMPUTER:  ATT  DIS  DON  MOO  NEW  HUM  PRU  REV  SEL 

SEN  SPA  STA  SYS  TTL  WVC 
OPTION! 

USER:  SEN  <or>  (Stmltlvlty  tnilystO 

COMPUTER:  SENSITIVITY:  CIUKVT  RIELWT  V)ALUE  E>XIT 

USER.  C 

COMPUTER:  SENSITIVITY  ANALYSIS  FOLLOWS 

NRN  TOR  WHICH  CUHWT  IS 
TO  BE  PERTURBED 
ENTER. . .NRN? 

USER:  1  2  <cr> 

COMPUTER:  1  2  SURV1 VABLE 

CURRENT  NODE  CUMVT  IS  0.2?- 

M1NIMUM  CUMVT  (0-1.0)  IS? 

USER:  0  < c r  > 

COMPUTER:  MAXIMUM  CUMVT  <0-1. 0)  IS? 

USER:  I  (or) 

COMPUTER:  CUMVT:  T) ABUL AR  ORAPHICAl  E)XIT 
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USER :  C 

COMPUTER:  CRAPMtC:  NIORMAL  E ( XPANOEO 

USER:  M 

COMPUTER : 


SENSITIVITY  ANALYSIS 
rOR  SURVIVABLE  NRM  1  I 

VALUE 


C 

U 

H 

V 

T 


USER:  <cr> 

COMPUTER:  CUMVT:  TUBULAR  ORAFHICAl  E>XIT 

USER:  C 

COMPUTER:  ATT  DIS  DON  MOD  NEW  NUN  PRU  REV  SEL 

SEN  SPA  STA  SYS  TTL  WVC 
OPTION! 

USER:  DON  (er>  (Coaputtt  now  oiit*  th»  progria) 
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LIST  OF  FIGURES 


TITLE 


Tppleal  Daeieion  Struotnre 
(tupli  Daaonstat  ing  Finding  a  No  da 
new  Dlagraa  of  PROCEDURE  NEST 
Flew  Dlagraa  of  PROCEDURE  SPAN 
Flew  Dlagraa  et  PROCEDURE  CALC 
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I.  INTRODUCTION 

This  pt»|fin»r'i  manual  it  in  support  of  tho  Decision  Analpsis 
Support  Siili*  as  described  in  tbo  proceeding  thesis  and  appandteoo.  Tho 
parpofa  li  to  provide  future  analysts  with  information  pertinent  to  the 
program  itreif  for  modi f i eat i ene  and  improvements. 

Tbii  program  was  written  in  USCD  PASCAL  at  supported  bp  the  Apple 
11  Hi rcroconpeter .  Inelnded  in  the  program  is  computer  oolor  graphies 
which  is  an  implemented  fsatsro  on  the  Apple  II. 

Ifanp  of  tho  oomments  and  etamplos  presented  in  this  manual  refer 
to  Figure  1.  The  programmer  and  interested  readers  are  urged  to  refer  to 
this  figure  when  reading  the  following  sections. 


I  BEST  ACFT  I 


_ 

PERFORMANCE 


0.3 

0.7 

HI  AIT 

10  ALT 

0.27 

SURVIVABLE 

o.< 

G 

30.0 

10.0 

40.0 

U  L  COMBAT 

0.0  0.0 

I  AIR-AIR  [aIR-CND 


Figure  i  Sample  Tree  Struotore 


II .  ARRAY  STRUCTURES 


The  array  structural  in  this  program  fellows  that  of  the  DA88 
program  pst  forth  in  ths  Apploseft  BASIC  program.  Thoro  aro  thrso 
primary  arrays  that  art  carried  in  internal  memory.  The  names  are  I RAT, 
ARAt,  and  VRAY.  Ths  following  paragraphs  will  deseribo  each  array  and 
provide  appropriate  row  and  column  definitions. 

All  Arrays  aro  «et  up  such  that  oaoh  row,  starting  with  row  1, 
represents  a  level  in  the  strueture.  For  esample,  if  row  two  had  node 
data  in  it,  that  would  meao  that  that  particular  node  was  a  level  two 
type  node  (i.e.  first  descendant  from  the  root  node).  Ths  only  ease  that 
this  is  not  true  ts  when  FROCEDVRE  CROSS  (in  UNIT  A)  is  assented.  Is 
this  procedure,  the  arrays  additionally  hold  a  complete  span  of  the  tree 
which  oontains  the  node  whioh  invoked  the  procedure. 

Array  1RAT  is  a  an  11  row  by  i  column  array  housing  the  various 
link  pointers.  The  rows  and  eolumns  are  labelled  starting  with  tore  and 
running  to  ten  and  five  respeet i vely .  Each  row  represents  a  particular 
node  with  each  column  representing  tha  node  number,  the  location  Of  the 
node  on  its  span  relative  to  its  brothers  and  sisters,  the  downlink 
node,  tho  crosslink  node,  the  baoklink  node,  and  the  baeklink  node. 

Column  taro  represents  the  node  number  that  is  assigned  to  the 
node  at  the  time  of  entry.  Each  node  his  a  uniquely  assigned  node 
number.  This  number  represents  the  record  number  of  the  disk  file  whore 
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•  tl  nod**  tMlii  in  mi  storage.  In  iMIllen,  this  nod*  nuabor  to  «■*! 
in  identifying  downlink*,  crosslinks,  backlink*,  and  uplinks  in  irtif 
l  RAT. 

Colsan  one  :opr*c*nt*  th*  nod**  position  in  th*  »p«n  (or  that, 

1***1  th*  nod*  i*  at.  Th*  **ry  iir*t  nod*  in  th*  span  is  lab*ll*d  on*. 

This  i*  us*d  to  identify  th*  nod*  using  th*  nod*  r*(*r*ne*  nonbor  systoa 

\ 

(A*  described  abo**  and  in  th*  U**r'*  Hannal). 

Coloan  two  r*pro*«nt*  th*  downlink  nod*.  Th*  downlink  nod*  I* 
that  nod*  which  is  th*  first  d*se*nd*nt  to  th*  nod*  identified  in  ooloan 

t 

s*ro.  ff  that*  ar*  no  d*se*nd*nts  to  th*  nod*,  th*  downlink  will  b* 
s*ro . 

Co  I  nan  thr**  r*pr***nt*  th*  oresstlnk  nod*.  Th*  orosslink  nod*  is 
that  nod*  whioh  is  a  slbiirg  of  th*  nods.  It  tho  nod*  do**  not  hava  any 
aor*  slb'tngs,  th*  crosslink  will  b*  «*r*. 

Colaan  four  represents  th*  backlink  nod*.  Th*  baeklink  nod*  is 
that  ned*  whioh  eventually  links  th*  nod*  back  to  th*  root  nod* 

(top-aost  nod*).  Th*  baeklink  ean  b*  either  th*  parent  nod*  *r  a  sibling 
depending  on  th*  nodes  position  on  th*  span.  If  th*  ned*  is  th*  first 
nod*  on  th*  span  (reading  left  to  right),  its  baeklink  nod*  will  b*  its 
parent.  If  th*  nod*  is  on  any  oth*r  position,  its  backlink  nod*  will  b* 
its  sibling  en  its  iaa*di*t*  left. 

Coluan  lie*  represents  th*  uplink  nod*.  Thi*  ooiuan  is  not  saved 
on  th*  disk  111*  but  is  used  in  PROCEDURE  SPAN  in  SECMENT  PROCEDURE 
DUMMY  and  th*  uplink  ned*  is  used  in  PROCEDURES  NEXT  and  riNO  In  UNIT 

S 


DASSA .  It  point*  to  the  nod*'*  parent 


•panning. 


Array  ARAT  1*  tha  data  array  which  houses  tho  relative  and 
emulative  weights  tor  •  node.  Relative  weight*  refer*  to  the  relatlee 
importance  of  the  node  to  it*  siblings.  Ail  weight*  are  between  sere  and 
one,  but  the  sen  of  the  relative  weight*  of  all  siblings  on  a  .given  span 
is  equal  to  one.  Relative  weights  are  assigned  using  option  WC  (see 
User's  Manual)  which  is  found  in  SECKENT  PROCEDURE  WVLOAD  under 
PROCEDURE  ROUT. 

Cunelativa  weights  refer  to  the  impact  of  the  node  to  the  overall 
tree  structure.  This  is  particularly  important  in  acconpl ishing 
sensitivity  analyses.  The  cumulative  weights  are  oaleulated  using 
PROCEDURE  CALC  1  SEGMENT  PROCEDURE  WVLOAD.  The  actual  calculations  used 
in  calculating  the  tree  (cumulative  weights)  will  be  discussed  in  a 
later  seetlon. 

Array  VRAT  is  the  data  array  which  carries  worth  value 
information  tor  the  alternatives.  The  VRAY  array  consists  of  five 
columns  each  representing  an  alternative  under  Investigation.  Values 
inside  this  array  are  inputted  directly  into  data  nodes  (the  bottom-most 
nodes  in  the  tree  structure)  using  option  VVC  (PROCEDURE  RDV  in  SECNENT 
PROCEDURE  WVLOAD).  The  values  of  nodes  other  than  data  node*  are 
calculated  using  PROCEDURE  CALC  in  SECHENT  PROCEDURE  WVLOAD. 


/ 

lit.  Disk  Flit  Strsotsros 

TWo  separate  files  in  erootod  and  aaintalnod  (or  took  t 
strsetsre  developed  by  tho  DASB  program.  Tho  lint  file  oallod  NODI  (••• 
UNIT  OASSA)  oontain*  tho  roeord  tor  oaeh  nodo.  In  addition,  troo 
•troctnro  statiotloo  and  rations  tltloo  ara  otorod  In  tkio  ttlo.  Tho 
•oeond  filo,  oallod  SYSTEMS  (aloo  In  UNIT  DASSA)  oontains  tho  labols  for 
all  tho  alternatives  bolng  inrestigatod.  Tho  following  faw  paragraphs 
will  doooribo  tho  filoo  in  dotail. 

Yi  a  NODE,  ao  indloatod  abort  oontaino  roeord  data  for  oaoh  nodo. 
Tho  rooor>*  oontains  tho  laboi  of  tho  nodo  (NODETITLE),  tho  soil  nnabor 
(CELLNUMBIK),  tho  position  tho  nodo  is’  on  Its  span  (NRND1G1T),  lto 
downlink  nodo  (DOVNLINX),  its  erosslink  nodo  (CROSSLINK),  and  its 
baokllnk  nodo  (8ACKL1NK).  In  addition,  tho  rooord  contains  tho  node’s 
relative  weight  (RELUEICHT)  and  eonolatlre  weight  (CUNVEIGHT).  as  well 
as  raises  of  tho  altsrnatisas  for  that  nodo  either  oalcnlatod  or 
lnpsttod  (SYSTEKVALUES  ARRAY! i . . 51 > .  Finally,  oaoh  record  oontains  a 
consent  eoncornlng  that  particslar  nodo  (RATIONALE). 

For  ease  of  progranning,  the  nodo  roeord  nonbor  (used  in  sarioos 
CETs  and  PUT*  throsghost  the  program)  is  the  sans  as  tho  eoll  nonbor  of 
tho  nods.  Thos,  raises  of  tho  rations  linking  pointers  (DOWNLINK, 
CROSSLINK,  and  BACKL1NK)  can  be  seed  to  CET  tho  specif  tod  nodo  directly. 

In  tho  ease  of  APPLE  II  all  random  access  (lias  (of  which  NODE 


:  SYSTEMS  m).  tilt  first  record  of  the  tlla  is  labelled  aero,  tks 
it  on*,  sad  so  «a.  Sines  tbs  rsostd  number  for  tbs  nods  is  else  tks 
.<11  nuabsr  of  tbs  node,  rsesrd  sere  is  not  osed  tot  tbs  nodes 
•hemsetves.  However,  nods  tsto  is  seed  to  eontsin  various  tree 
statistics  end  titles.  Tbs  following  paragraphs  dssotibs  whiob  globsl 
Mtitblsi  are  stored  in  rsoord  ssro  of  fils  XXXNODB.DATA. 

Tbs  NODETITLE  variable  eontains  tbs  ontrsnt  attribute 
characteristic  contained  in  global  variable  LATT,  whiob  is  oroatod  when 
option  ATT  is  exercised  (PROCEDURE  LABELATTRiBUTES  in  SEGMENT  PROCEDURE 
DUMMT  > . 

Tbs  CELLNUMBER  variable  contains  the  veins  of  the  gl.bal  variablo 
NNODES  (nnabor  of  nodes  in  tbs  tree). 

Tbs  NRNDIGIT  variable  in  tbs  rsoord  contains  tbs  currant  number 
of  levels  containsd  in  tbs  tree  structure.  Levels  as  discussed 
previously  are  the  nuabsr  of  generations  eainating  from  the  root  nods, 
including  the  root  node. 

Tbs  DOVNLINK  variable  eontains  the  eurrent  number  of  alternatives 
(or  systems)  that  are  being  investigated  by  the  tree.  The  Information  is 
transferred  to  and  from  the  global  variable  NSYS. 

The  CROSSLINK  variable  eontains  the  condition  of  the  tree 
structure  as  identified  by  the  global  variable  FLAG.  If  FLAG  is 
non-sero,  additions  and/or  deletions  have  been  made  to  the  tree 
structure,  and  the  tree  has  not  been  re-ea 1 oula t ed . 

Finally,  the  RATIONALE  variable  contains  the  title  of  the  tree 


•tractor*  which  1c  obtained  hf  option  TTL  (PROCEDURE  READTITLE  In 
SECMENT  PROCEDURE  DUMMY) .  Th*  global  variable  TITLE  eonUins  the  tr*c 
•tractor*  till*  daring  pregrtn  operation. 

Other  variable*  in  record  0  of  file  XXXNODE.DATA  not  mentioned 
•re  currently  not  oaed  and  art  available  for  future  use-. 

Disk  aoeooa  of  tha  node*  are  conducted  throughout  the  progran: 
however,  node  care  i*  only  accessed  at  two  point*.  The  first  point  is 
when  the  file  i*  first  accessed  (PROCEDURE  SELECTFILE  in  SEGMENT 
PROCEDURE  DUMMY)  and  the  sesond  is  when  the  file  is  closed  (PROGRAM  DA88 
er  PROCEDURE  8ELECTFILE  in  SECMENT  PROCEDURE  DUMMY). 

While  aocess  to  the  nodes  oeeur  throughout  the  progran,  the 
information  transferred  from  the  nodes  to  the  holding  arrays  (IRAY, 

ARAY,  and  VRAY)  are  all  done  via  PROCEDURES  NODEARRAYTODISK  and 
NODEOtSKTOARRAY  found  in  UNIT  DA88A. 

The  second  disk  fits  used  by  the  DASS  program  is  called  SYSTEMS. 
Its  purpose  is  to  contain  the  labels  of  the  alternatives  (systems) 
currently  being  evaluated  by  tha  tree  struotura.  The  variable  used  In 
the  file  la  caliad  SYSTEMNAME.  Sinoa  tha  file  is  small  (current 
restrictions,  due  to  tha  number  of  colors  available,  limit  the  nombar  of 
alternatives  to  five),  whenever  a  requirement  for  an  alternative  name  is 
requited,  the  file  is  acoessed  (etoept  in  SECMENT  PROCEDURE  WLOAD  where 
the  systems  are  read  into  an  array  SYS  and  used  during  loading  values  in 
PROCEDURE  RDV) . 
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IV.  SenettlvttT  Analytic 


The  iiaittlfit;  tailfili  in  this  vertion  of  DA8S  not  only 
oondoota  variatlona  for  i  ptrtletUt  node'e  otiolttit*  weight,  hut  atao 
i  nodt'a  rotation  weight  and  tf  tho  noda  it  a  data  noda,  tho  variation 
of  a  valna  of  a  particular  altarnativo.  Tho  following  paragraphc  will 
deaoriba  tho  nodala  for  tha  optiona  above.  Tho  ooda  which  ia  aaod  to 
Implement  thoao  nodala  art  PROCEDURE  CXLCARRhY  within  SEGMENT  PROCEDURE 
SENSITIVITY. 


Sanaitlvitv  on  Cnantattva  Weight 

in  thla  analyaia,  wa  ar.a  aianining  tho  affaot  on  tha  ovarall  trao 
("root"  noda)  baaed  on  a  ohanga  in  tho  cunolativa  waight  on  any  noda. 

Nota  that  tha  oompooito  valna  of  tha  "root'*  noda  for  a  given 
altarnativo  ia: 


VALUE (ROOT  NODE) 


CUMULATIVE  VE ICHT( ATTRI BUTE)  »  VALUE (ATTRIBUTE) 


all 

at  trlbota* 


In  tha  analyaia  of  cunulativa  waight,  wa  »ra  intareatad  in 
roplaoing  a  particular  cuaulaivo  waight  of  any  noda  with  a  raw  waight. 
Since  the  traa  ia  nornalitad,  wa  ;an  calculate  a  now  coapoeita  value. 

Tha  procedure  ia  to  raaova  the  contribution  of  tha  noda  fron  tho 


I 


■root*  nodo  ond  replace  it  with  •  now  contributed  »loi.  Koto  that  tbo 

< 

contribution  ot  any  nodo  to  the  overall  'root*  node  it: 

CONTRIBUTION(NODE)  -  CUMULATIVE  WEIGHTCNODE)  *  VALUE (NODE , ALTERNATIVE) 

Since  changing  the  oomolatlvo  weight  of  any  nodo  roiultt  in  the  trot  no 
longer  being  noraalisad,  the  tree,  itielf,  nuot  undergo  a 
t rant ( orna t i on .  The  trantlornat ion  nutt  bo  coeh  that  the  tranaforaod 
tree'*  ouaulativo  weight  it  equal  to  one  ainut  the  cuaulatlvo  weight  ot 
tho  perturbed  nodo. 

A  tingle  equation  wat  developed  to  aceoaplieh  tho  above  proeeduro 
for  a  given  alternative: 

NEW  VALUE ( ROOT  NODE)  -  ( VALUE (NODE )  •  NEW  CUMULATIVE  WEICHT)  ♦ 

CM  -  NEW  CUMULATIVE  WEICHT)  / 

(1  •  OLD  CUMULATIVE  WE  I GHT(NODE) ) 1  • 

( (VALUE (ROOT  NODE)  - 

(VALUE (NODE )  ■  OLD  CUMULATIVE  WEIGHT (NODE) ) > 

11) 

Thus  the  procedure  to  deteraine  the  ehange  in  the  "root*  value  of 
a  given  alternative  given  a  change  in  a  coaulative  weight  of  tone 
attribute  or  objective  ie  at  followt: 

(1)  Pick  a  new  cunulative  weight  of  the  node  to  be  eaaained- 

(2)  For  etch  alternative,  deteraine  the  new  "root*  node  value 
lor  the  alternative  uting  equation  CD. 

» 


for  esaaple,  let's  look  at  the  effect  of  changing  tbs  ouaslitlu 
weight  of  node  HI  ALT  iron  A. 641  to  O.Qi  on  alternative  f-t. 


for  alternative  P-4: 


VALUE (BEST  ACFT.F-4)  ■  47.7* 


VALUEfHl  ALT.F-4)  ■  45.00 


for  node  HI  ALT 


CUMULATIVE  VEICHTCHZ  ALT)  -  0.042 


Using  equation  til: 


NEW  VALUE ( BEST  ACFT)  -  (VALUE(Hf  ALT.F-4)*  NEV  CUMULATIVE  VEICHT)  * 

<(1  -  NEW  CUMULATIVE  VEICHT)/ 

<1  -  CUMULATIVE  WEICHTtHI  ALT))  • 

< VALUE ( BEST  ACFT.F-4)  - 

(VALUE (HI  ALT.F-4)  *  CUMULATIVE  VEICHTCHI  ALT)) 


■  (45.00  *  0.00  ♦ 


til  -  0.  OO  /  (1  -  0.042))  • 


(47.7*  -  (45.00  *  0.042)) 


snel t  ltl tv  or 


Vhat  we  are  etanining  is  to  see  the  change  in  alternat'vc  values 


at  the  "root*  node  based  on  a  change  of  a  relative  weight  on  a  span 
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anywhere  in  th*  tree.  Not#  that  th*  “toot*  nod*  is  th*  overall  objective 
of  th*  tre*  structure. 

In  performing  tb*  analysis,  w*  n**d  to  look  at  bow  th*  vain**  of 
a  nod*  at*  calculated.  Not*  that  for  any  nod*,  th*  vain*  of  an 
alternative  for  that  nod*  i*  just  th*  eon  of  th*  product*  of  **ch 
innediat*  descendant  alternative  vain*  and  its  relative  weight  or: 

VALUE (PARENT  NODE)  ■  RELATIVE  VEICKT(DESCENDENT) * VALUE < DE&CENDENT) 

all 

innediat*  (21 

descendant* 

Thn*  w*  can  say  that  a  change  in  th*  relative  weight  of  any  uod* 
will  only  affect  th*  vain*  o'f  th*  parent  node.  In  addition,  note  that 
th*  vain*  of  any  nod*  i«  only  dependent  on  it*  own  iauaedist*  descendant* 
and  not  on  th*  relative  weight-of  th*  nod*  itself.  Therefore,  In 
esanining  a  change  of  th*  relative  weight  of  a  node,  the  new  alternative 
vain**  of  it*  parent  need  to  be  calculated  and  sobstitnted  for  th* 
inonnbent  vain**  of  th*  parent.  This  substitution  will  then  effect  th* 
value  of  th*  "root"  nod*. 

Substitution  of  th*  new  values  into  th*  "root*  node,  fortunately 
is  straight-forward.  Note  that  the  value  contribution  of  any  node  to  the 
"root"  nod*  is  lust  th*  product  of  its  value  nultiplied  1/  it* 
cumulative  weight  or: 


NODE'S  CONTRIBUTION  TO  THE  ROOT  NODE  -  CUMULATIVE  WEIGHT (NODI)  • 

VALUE  (NODE)  ESI 

Sine*  th*  cumulative  weight  of  th*  parent  i*  unchanged,  th* 

•hang*  in  th*  vatu*  e(  th*  parent  can  b*  added  to  th*  "root"  nod*  or: 

NEV  VALUE (ROOT  NODE)  ■  OLD  VALUE (ROOT  NODE)  - 

(CUMULATIVE  VElCHTtPARENi )  *  OLD  VALUE ( PARENT) > 
(CUMULATIVE  VE I CHT( PARENT)  •  NEW  VALUE ( PARENT) > 

Ml 

A  question  arie*e  a*  to  how  to  dictribnt*  th*  remaining  relative 
weight  to  th*  nod*'*  (ibiing*.  An  arbitrary  rale  wao  wad*  to  k**p  th* 
relative  weight*  of  the  siblings  at  the  same  proportion*  a*  wa*  in  tho 
incanbant  *itaatton.  for  *ia*pte,  let  ns  hav*  three  objective  nodes  A, 

I,  and  C.  La t  *aeh  of  the**. obieetiv**  hav*  th*  relative  weight*  of  0.7, 
0.2,  sad  0 . I  respectively.  If  we  vary  the  relative  weight  of  A  from  6.7 
to  0.0,  then  node  B  will  have  a  relative  weight  of  0.133  and  nod*  C  will 
have  a  relative  weight  of  0.0(7.  It  w*  varied  nod*  A  iron  0.7  to  0.(, 
nod*  B  will  hav*  a  relative  weight  of  0.2(7  and  node  C  0.133.  Note  that 
th*  ratio  of  B  to  C  is  unchanged  in  all  case*. 

Thu*  th*  overall  procedure  in  eramining  th*  effect*  of  a  change 
in  a  relative  weight  of  a  given  ned*  on  th*  ’‘root*  nod*  is: 

(1)  Pick  a  new  relative  weight  of  the  nod*  to  be  eianined. 

(2)  Rediitribcte  th*  remaining  relative  weight*  (that  i*  on* 
minus  the  relative  picked  in  step  (!>)  among  th*  nod*'* 
sibling*. 


,'V 


(1)  Recalculate  th*  titoi  of  the  nodt'i  parent  going  tho  now 
rotative  wolghto  ooloetod  in  otopo  (1)  and  (2)  noing 
equation  II).  Noto  that  tho  valets  of  tho  nodo  and  Its 
siblings  ato  unchanged. 

id)  Sobstitots  tha  now  valet  of  tho  paront  nodo  in  plaoo  of 
its  old  valet  at  tho  "root"  nodo  using  oqeation  id). 


For  osanplo,  lot  ns  tvaloato  tho  inpaot  on  altornativo  F-1S  when 
tho  rolativo  weight  of  AIR-GND  ehangos  from  its  ineoabent  rolativo 
woiqht  of  O.dS  to  O.Sfl. 

After  establishing  tho  now  rolativo  weight  for  nods  AIR-CND, 
eoapete  tho  now  rolativo  weights  of  nodes  AIR-AIR  and  RECCE  esing  the 
rolativo  weight  of  AIR-CND  of  0.30  and  maintaining  the  old  proportion 
botwson  AIR-AIR  and  RECCE.  Vo  ean  determine  the  appropriate  valeos 
through  tho  following  oqeation: 


OLD  RELATIVE  WEIGHT  (SIBLING) 

NEW  RELATIVE  WE  I  GHTi  SIBLING)  .  .  • 

(1  -  OLD  RELATIVE  WEIGHT  (NODE)) 


(1  -  NEW  RELATIVE  WEICHT  (NODE)) 


Thus  for  nods  AIR-AIR: 


OLD  RELATIVE  WEIGHT  (AIR-AIR) 

NEW  RELATIVE  WEICHT( AIR-AIR)  ■  - . .  —  -  i 

(1  -  OLD  RELATIVE  WEIGHT  (AIR-GND)) 


(I  -  NEW  RELATIVE  WEIGHT  (AIR-GND)) 


I 

i 


■■r  j  j'.r  j;, 


\ 


1.0 

•  - -  •  (1-0.30) 

(1-0.43) 

■  0.377 


and  (or  RECCE: 

0.14 

NEW  RELATIVE  WEIGHT* RECCE)  '»  — - —  «  (1-0.30)  ■  0.133 

(1-0.43) 


Tha  soil  stop  i«  to  eolcaloto  tho  now  tilro  o(  AIR-CND'o  parent, 
COMBAT  aeing  tha  now  rolatttro  weight*  ealoalatod  abort  aolng  agnation 
(X)  lor  alternative  F-IS: 

NEW  VALUE! COMBAT, F- 1 5  >  -  RELATIVE  VEICHT( AIR-AIR)  •  VALUE! AIR-AIR. P-13 )  a 

RELATIVE  VE1CHT! AIR-CNO)  •  VALUE! AIR-CNO.P- IS)  a 
RELATIVE  WEIGHT! RECCE)  a  VALUE ( RECCE • F-l 5 > 


p 


\ 


•  0.377  *  70  a  0.30  •  20  a  0.1X3  •  10 

■  43.14 

Tha  (Inal  atop  ta  to  aubatttuta  the  now  value  iuat  calculated  (or 
COMBAT  into  tha  "root"  node,  BEST  ACFT.  Ueing  aquation  (4): 
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i 


NEW  VALUE (BEST  ACFT>  a  OLD  VALUE (BEST  ACFT.F-15) 


CUMULATIVE  VEICMT( COMBAT)  *  OLD  VALUE( COMBAT. F-15 )  ♦ 
CUMULATIVE  WE ICKT( COMBAT)  *  NEW  VALUE ( COMBAT t F- 1 S ) 


•  53. 74  -  0.57  •  <1.57  ♦  0.57  •  45.14 


a  53.07 


n*i*(<ti,  tha  ehtnga  in  tha  hUi  of  altornatiao  F-15  in  tbo 
objaetivo  BEST  ACFT  given  •  ehtnga  in  to  relative  ml|ht  of  nodo  AIB-CND 
fron  0.41  to  0.50  to  53.07. 


Saneitlvitv  on  Attrtbnta  V 


NEV  VALUE (ROOT  NODE. ALTERNATIVE)  ■  OLD  VALUEtROOT  NODE . ALTERNATIVE)  > 

CUMULATIVE  WEIGHT (ATTRIBUTE)  • 

INCUMBENT  VALUE  (ATTRIBUTE. ALTERNATIVE)  ♦ 

CUMULATIVE  VE  I GKT< ATTRIBUTE)  « 

NEW  VALUE  (ATTRIBUTE. ALTERNATIVE)  .  IS) 

Not*  that  fiiflng  th*  *«ln*  of  in  alternative  for  *n  attribute 
only  offoot*  th*  film  of  th*  "root'*  nod*  tot  th»t  alternative  »nd  th* 
«•!«•*  of  th*  “root"  nod*  for  *11  oth*r  alternatives  *r*  unchanged. 

Tha*  th*  procedure  in  ereaining  th*  *ff*et*  of  changing  an 
alternative  vain*  for  a  gi**n  attribute  li: 

(1)  S*l*rt  a  n*w  tala*  of  th*  attrlbat*  for  a  gi**n  alt*rnattr*. 

(2)  Calcolat*  th*  n*W  vain*  of  th*  ■ root"  nod*  (or  th* 
given  alternative  using  equation  Ml.  All  other 
att*rnativ*  vain**  for  th*  "rent*  nod*  will  r*naln 
unchanged. 

For  **aapl*.  1st  os  look  at  th*  *ff*ot  on  th*  value  of  alternative 
F-ltl  at  th*  overall  objective  BEST  ACFT  when  alternative  F-Ill 
ehang**  valu*  at  nod*  SURVIVABLE  froa  40.0  to  40. 0. 

Using  equation  CS1: 


M 


NEW  VALUE ( BEST  ACFT.F-lll)  a  OLD  VALUE< BEST  ACFT,F-Ut> 


CUMULATIVE  VEICHTISURVIVABLE)  • 

OLD  VALUE ( SURVI VABLE ,F-1 1 1 >  ♦ 

CUMULATIVE  VE ICKTCSURIVI ABLE)  • 

NEW  VALUE (SURVIVABLE(F-1S1) 


-  37.lt  -  0.17  *  40  ♦  0.17  *  00 


■  43.01 


That  i  ehongo  in  tho  tdit  of  tho  oltornotivo  F-lll  ot  nodo 


SURVIVABLE  Orem  40  to  00  ohongoo  tho  voloo  of  tho  "root1*  nodo  BEST  ACFT 


PROCEDURES  NODIN  and  FIND 

That*  procadurea  (found  in  UNIT  DASSA)  art  used  to  elicit  a 
single  neda  (bp  HRN)  (tom  the  mat ,  and  find  that  node.  It  the  selected 
noda  data  not  aaiat  tha  rootinaa  Mill  find  tha  noda  which  la  oloaaat  in 
tha  data  struotura  to  what#  tha  Inpat  noda  would  ha.  Heat  optiona  (with 
tha  aacaption  ot  HOD)  will  interpret  the  non-eaistenee  of  a  node  aa  an 
indication  that  the  uaer  ia  finiahed  with  the  option,  and  will  return 
program  eontrol  to  the  program  unit  which  called  that  option.  In  the 
eaae  of  option  HOD  (SECHENT  PROCEDURE  HODPRU),  additional  branehaa  and 
nodaa  will  be  added  to  match  the  node  entered  by  the  uaer. 

PROCEDURE  NODIN.  The  routine  NODIN  merely  raada  in  tha  uaer 
aelactad  noda  rafaranea  number.  If  tha  uaer  entered  an  NRN,  than  NODIN 
will  call  FIND  to  aaarch  for  that  node. 

PROCEDURE  FIND.  FIND  aaarehea  tha  tree  for  a  match  to  tha  input 
noda.  Thia  ia  aoconpliahed  through  a  modified  breadth-fire t  aaarch. 
Starting  with  tha  top  level,  a  erect’  nk  aaarch  ia  conducted  for  an  NRN 
digit  match  at  each  level.  Failure  to  find  a  match  at  a  level  indicates 
that  tha  input  noda  thould  be  added  aa  a  new  croaalink  at  that  level.  If 
a  match  is  found,  the  nest  level  down  ia  accreted  (or  the  nest  input  NRN 


digit.  If  there  ia  no  downlink  path,  than  the  routine  ia  terminated. 


Figure  1  previdea  an  eaaaple  of  the  PROCEDURE  TIND 


Figure  2  Finding  a  Node 


routine  given  that  tha  NUN  provided  tram  PROCEDURE  NODIN  was  1,1,2. 
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Thai*  routine*  aft  uaad  aitanilvalp  by  other  option*  within  tha 
pragraa,  whara  tha  uaer  aaat  aalaat  a  aiagla  nada. 


IMtUimmiiEL  PRETOT,  and  NEXT. 

Thaaa  prreadataa  (lannd  in  UNIT  DASSA)  ata  aaad  bp  DABS  ta 
•aquentiailp  traaaraa  tha  tea*  atraatara.  PROCEDURES  PRENEI  and  PRETOT 
ara  aaad  ta  lndlaat*  whara  tha  travaraal  ia  ta  atari:  at  tha  "reat"  nada 
in  tha  eaaa  at  PROCEDURE  PRETOT,  ar  at  an;  daaeandant  nada  in  tha  aaaa 
at  PROCEDURE  PRENEI.  Tha  aataal  travaraal  ia  aecompliahad  bp  PROCEDURE 
NEXT. 

PROCEDURE  PRENEI.  Thia  proeadura  atleita  a  NRN  tram  tha  aaar 
aaing  PROCEDURE  NODIN  aa  daaeribad  abava.  It  a  valid  NRN  ia  antarad,  tha 
pr ootdnra  atart*  tha  travaraal  at  tha  nada  antarad,  and  cauaa  PROCEDURE 
NEXT  to  travaraa  anlp  ita  daaeandanta  (vata  ITOTL  aqaal  ta  ana). 

PROCEDURE  PRETOT.  Thia  procedure  ea-raas  tha  array  pointara  (LVL> 
ta  ba  raaat  ta  tha  top  of  tha  arrapa  »nd  tata  tha  appreprlata  flaga  tar 
an  antira  traa  travaraal  UCONT,  NDIFF,  and  ITOTL  equal  *«.  ana). 

PROCEDURE  NEXT.  Thia  proeadura  tour*  tha  hlararchieal  atrootora 
atartlng  at  location*  (paolflad  bp  PROCEDURES  PRETOT  or  PRENEI.  Tha 
algarithn  uaad  la  Captain  Horlan'a  li.provad  vetaion  which  waa  aa 
daaeribad  in  hi*  Tachnical  Report.  Tha  ba*ie  flow  1*  *hown  in  Figure  3. 
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ENTER 


rigrc*  3  Flow  o!  PROCEDURE  NEXT 


XI 


PROCEDURE  CALC 


The  calculation  of  eoaposita  values  (collapsing)  lot  the 
hierarchy  to  accomplished  through  •  modified  depth-first  tour.  Tha  traa 
to  ssaained  branch  by  branch  (that  to,  a  path  froa  tha  "root"  noda  to  an 
attribute)  and  tha  emulative  weight*  are  calculated.  Values  based  on 
tha  attribute*  ar*  than  eoapotad  and  aootgnod  to  the  appropriate  nodi. 
Tha  logic  for  thi*  process  is  shewn  in  Figaro  5.  For  esanple,  the  first 
branch  that  would  b*  asaainad  would  be  BEST  ACFT  -  PERFORMANCE  -  HI  ALT. 
Tha  procedure  would  then  ealculatt*  tha  cuaulative  weight  of  each  node 
following  tha  following  equation: 


CUMULATIVE  WEIGHT! NODE)  -  CUMULATIVE  VE I CHT( PARENT)  • 

RELATIVE  VEIGHT(NODE) 

The  resulting  emulative  weights  would  be  BEST  ACFT  1.0,  PERFORMANCE 
0.14,  and  HI  ALT  0.042. 

Tha  value  of  the  alternatives  are  then  aultiplied  by  the 
euaulativr  weight  of  the  upper  node*.  This  provide*  the  actual  value 
eontr that 'on*  of  the  attribute*  to  all  parent*.  For  eiaapls,  let  us 
calculate  the  value  of  the  contribution  of  attribute  HI  ALT  to  the 
•root"  node  BEST  ACFT  and  intvraediate  node  PERFORMANCE  for  alternative 
F-4. 
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For  VEST  MODS: 


CONTRIBUTION  OF  MI  ALT  ■  (CUMULATIVE  VEICKTCKI  ALT)/ 

TO  BEST  ACFT  CUMULATIVE  VtICKTIBEST  ACFT) )  • 

VALVE(HI  ALT,r-«) 

mirietlli: 

CONTRIBUTION  OF  Ml  ALT  ■  (0.041/1 .00)  •  43 

TO  BEST  ACFT 

■  I.  IF 

For  PERFORMANCE: 

CONTRIBUTION  OF  HI  ALT  ■  (CUMULATIVE  VEIGHT(HI  ALT)/ 

CUMULATIVE  VEICHT( PERFORMANCE >  » 

VALUE (HI  ALT.F-4) 

-  (0.042/0.14)  *  43 

■  13.3 
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For  each  node  visited  in  4 
depth-first  tour 


Calculate  th*  cumulative  weight  ot  the 
node,  4*  th»  product  of  lie  relative 
weight  and  tho  cumulative  weight  of 
it*  parent  node.  (The  euaulative  weight 
of  the  “root"  node  ie  1.0) 


'THIS  AN 
ATTRIBUTE^ 
\NOD£/ 


Clear  ealuee 
f  0  r.  4 1 1 
at  ternat ieee 
at  thie  node 


For  each  level  above  the  ourrent  node 
for  each  alternative,  add  the  product 
of  the  cumulative  weight  at  thie  node 
and  the  value  of  that  alternative  at 
thie  node  to  the  value  at  the  upper 
ievele  (nodifying  ae  required) 


Write  the  data  oell  to  Bate  etorage 


For  each  level  up,  until  one  ie  found 
which  will  renain  after  the  cal)  for 
the  neat  node  in  the  tour,  write  the 
cells  information  to  Base  storage 


Figure  5  Collapsing  the  Hierarchy 
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VI  .  Var 1 able  Hit 


This  section  describes  th*  global  variable  lict  whioh  contains 
variables  available  to  all  units  and  segments  In  tbs  dass  program.  Thast 
variables  ean  ba  found  in  UNIT  DASSA  In  tha  program  listing. 


GLOBAL  VARIABLE  LIST 


ANSWER  STRING  VARIABLE  USED  TO  CONTAIN  USER  RESPONSES 

TO  VARIOUS  NON-SINCLE  LETTER  PROMPTS. 


ARAT  REAL  ARRAY  USED  TO  CONTAIN  THE  RELATIVE  VEICHTS 

AND  CUMULATIVE  WEIGHTS  OF  THE  BRANCH  OF  THE  TREE 
STRUCTURE  CURRENTLY  RESIDING  IN  THE  ARRAY 


CH  CHARACTER  VARtABLE  WHICH  CONTAINS  VARIOUS  RESPONSES 

FOR  COMPUTER  PROMPTED  QUESTIONS  AND  MENUS 


CMD  STRING  VARIABLE  WHICH  CONTAINS  THE  INPUTTED 

COMMAND  OPTION  IN  RESPONSE  TO  THE  MAIN  MENU 


COMMENTSTRING  STRING  VARIABLE  WHICH  CONTAINS  THE  NUMBER  OF 

BLANKS  EQUAL  TO  THE  CURRENT  MAXIMUM  COMMENT  SIZE 


DISKNAME  STRINC  VARIABLE  WHICH  CONTAINS  THE  DISK  NAME  (VOLUME 

NAME)  OF  THE  DISK  WHICH  CONTAINS  THE  NODE  AND  ALTERNATIVE 
DATA  SETS  FOR  THE  TREE  STRUCTURE 


FILENAME  STRING  VARIABLE  VHICH  CONTAINS  THE  APPLE  II  DISK 

FILE  NAME  HOUSINC  THE  NODE  INFORMATION  FOR  A  TREE  STRUCTURE 


F  I LEOFSYSTEMS 


Ft  AC 


I 


tCONT 


IFADO 


IF1ND 


1H  AT 


ISTR 


ITOTL 


STRING  VARIABLE  WHICH  CONTAINS  THE  APPLE  II  DISK 

FILE  NAME  HOUSING  THE  NAMES  OF  THE  ALTERNATIVES  FOR  A  TREE 

STRUCTURE 


INTECER  VARIABLE  WHICH  IDENTIFIES  WHETHER  ADDITIONS 

AND  DELETIONS  FOR  NODES  AND  ALTERNATIVES  HAVE  BEEN  MADE  AND 

THAT  THE  TREE  STRUCTURE  HAS  OR  HAS  NOT  BEEN  (RE > CALCULATED. 

IF  THE  FLAC  IS  SET.  WARNING  MESSAGES  WILL  OCCUR  IN  OPTIONS 
OIS,  REV,  NUH  (SEGMENT  PROCEDURE  KUM)  AND  OPTION  SEN  (SEGMENT 
PROCEDURE  SENSITIVITT) . 

0  -  TREE  HAS  BEEN  RECALCULATED 
1  -  TREE  HAS  NOT  BEEN  RECALCULATED 


INTECER  VARIABLE  WHICH  IS  USED  AS  A  GENERALIZED 
COUNTER  USED  THROUGHOUT  ALL  THE  PROGRAM. 


FLACS  WHETHER  TO  CONTINUE  OP  NOT  IN  TRANVERSINC 

TREE  CREATED  BY  PROCEDURES  PRETOT,  PRENEZ,  OR  NEZT  GROUP  OF 

ROUTINES  TO  TRANVERSE  TREE. 

0  ■  DO  NOT  CONTINUE  WITH  PROCESSING 
1  *  CONTINUE  PROCESSING 


FLAGS  RELATIONSHIP  OF  1PIND  NODE  TO  INPUT  NODE, 
X  -  I  FIND  IS  PARENT  TO  INPUT  NODE 
3  >  I  FIND  IS  BROTHER  TO  INPUT  NODE 


POINTS  TO  CELL  CONTAINING  THE  TERMINAL  OF  THE 
BRANCH  OF  NODES  WHICH  MATCH  THE  INPUT  NRN  VECTOR. 


INTEGER  ARRAY  WHICH  HOUSES  A  BRANCH  OF  THE 
TREE  STRUCTURE  AND  CONTAINS  THE  NODE  NUMBER, 
POSITION  OF  THE  NODE  ON  THE  SPAN,  DOWNLINK, 
CROSSLINK,  BACKLINK  AND  UPLINK 


STRING  VARIABLE  AUXILIARY  TO  STRING  VARIABLE 

ANSWER  CONTAINS  USER  INPUTTED  RESPONSES  TO  VARIOUS  NON-SINGLE 
LETTER  PROMPTS. 


FLACS  TYPE  OP  TREE  TRANVER5AL 

0  -  NOT  A  TOTAL  TREE  TRAVERSAL 
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1  ■  TOTAL  DOWN  NODE  TRAVERSAL  <  FROM 
INPUT  NODE  ON  DOWN) 


l  INTEGER  VARIABLE  VHICH  IS  USED  AS  A  GENERALIZED 

COUNTER  USED  THROUGHOUT  THE  PROGRAM. 


LABELSTRINC  STRING  VARIABLE  WHICH  CONTAINS  NODE  LABELS 

AT  THE  TIME  OF  ENTRY  (PROCEDURE  SPAN  IN  SECHENT  PROCEDURE 
DUM>:r ) 


LATT  CONTAINS  THE  LABEL  FOR  THE  ATTRIBUTES  (REGRET 

OR  VALUE! 


LVL  LENGTH  OF  LEVEL  NRN  VECTOR  (FROM  FIND).  ALSO 

USED  TO  DETERMINE  THE  CURRENT  DEPTH  OF  THE  BRANCH  CURRENTLY 
IN  THE  ARRAYS. 


NCROSS  INTECER  VARIABLE  VHICH  CONTAINS  THE  NUMBER  OF 

NODES  ON  A  GIVEN  SPAN.  USED  IN  PROCEDURE  CROSS  (UNtT  DASSAt 
AND  THOSE  ROUTINES  WHICH  USE  PROCEDURE  CROSS  (PROCEDURE  DISPLAY 
(SECHENT  PROCEDURE  NUN)  AND  SEGMENT  PROCEDURE  SENSITIVITY). 


NDEEP  THE  DEPTH  OF  THE  TREE  STRUCTURE 

(MAXIMUM  NUMBER  OF  LEVELS.  HAXHUH  NLVLS) .  SET  BY 
CALC  (PROCEDURE  SEGMENT  VVLOAD) . 


NDIFF  NUMBER  OF  LCVELS  NOT  MATCHED  IN  NRNVECTOR 

(LENGTH  INPUT  VECTOR)  •  ( LENCTH  OF  I FIND  VECTOR) 


NFLAG  FLAG  VHICH  INDICATES  WHETHER  OR  NOT  AN 

OPEN  DISK  FILE  IS  PRESENTLY  OPEN.  USED  IN  PROCEDURE  SELECTFILE 
IN  SECHENT  PROCEDURE  DUMMY. 


NLVLS  CONTAINS  THE  LENCTH  OF  THE  INPUT  NRN  VECTOR 

(LEVEL) 


NNODES  NUMBER  OF  NODES  IN  TREE 


II 


NODELABEL  STRING  ARRAY  USED  TO  HOUSE  THE  TITLES  0 P  VARIOUS 

NODES  CURRENTLY  RESIDING  IN  ARRAYS  IRAY.  ARAY,  AND  VRAY. 


NRNV ECTOR  CONTAINS  THE  INPUT  NRN  VECTOR  (NUMBERS) 


NSYS  NUMBER  Or  ALTERNATIVES  (SYSTEMS)  TO  BE  CONSIDERED 


OLDCELLNUM  INTECER  VARIABLE  USED  IN  PROCEDURE  SPAN  (&ECHENT 

PROCEDURE  DUMMY)  WHICH  CONTAINS  PRIOR  CELL  INFORMATION 
IN  THE  CONSTRUCTION  OF  THE  TREE 


QUESTION  STRING  VARIABLE  WHICH  CONTAINS  TK*  PROMPT 

FOR  WHICH  A  USER  RESPONSE  WILL  BE  REQUIRED 


RECORDID  INTECER  VARIABLE  NOT  USED 


TITLE  STRING  VARIABLE  WHICH  CONTAINS  THE  TITLE 

OF  THE  TREE  STRUCTURE 


VRAY  REAL  ARRAY  WHICH  CONTAINS  THE  VALUES  OP  THE 

ALTERNATIVES  FOR  GIVEN  NODES  FOR  THE  BRANCH  CURRENTLY 
RESIDING  THE  ARRAY 


SEGMENT  V  Jill  ISLES 


This  section  discusser  til  local  variables  that  at*  «*»<  in 

tbs  program.  Note  that  segments  are  enclosed  by  asterisks  and 

local  procedures  within  the  segment  are  labelled  by  leading  and  ttalling 

asterisks. 


e  UNIT  DA8SA 


PROCEDURES  NODED I SKTOARR AY ,  NODEARRATTOD I SX 


I  INTEGER  COUNTER  USED  TO  LOAD  ALTERNATIVE  VALUES  TO  OR 

FROM  VRAY  TO  DISX  FILES 


S  INTEGER  ARGUMENT  WHICH  SPECIFIES  WHICH  ROW  IN  ARRAYS 

I RAY.  ARAY,  AND  VRAY  THE  DATA  IS  COING  TO  OR  CONING  FROM 


*■«•»  PROCEDURE  NEXT  »»**» 

Z  INTEGER  USED  TO  HOLD  CURRENT  VALUE  OF  LEVEL  IN  ARRAYS 

I  RAY.  ARAY.  AND  VRAY 


PROCEDURE  FIND 


CONTFLAC  INTEGER  FLAC  WHICH  IS  RESET  WHEN  THE  INPUT  NRN  DOES  NOT 

MATCH  THE  CURRENT  BRANCH  IN  ARRAY  1RAY  BUT  A  SIBLING 
EXISTS 
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INTEGER  VARIABLE  USED  AS  A  TREE  LEVEL  INDICATOR 


QUITFLAC  INTEGER  FLAG  WHICH  EXITS  PROCEDURE  FIND 

1  -  END  PROCESSING 
0  a  CONTINUE  PROCESSING 


PROCEDURE  NODIN  ••••• 

I  IKTECER  COUNTER 


VAL  STRING  CONSTANT  CONTAINING  ALL  PERMISSIBLE  ELEMENTS  THAT 

CAN  BE  IN  AN  NRN 


X  STRINC  VARIABLE  USED  TO  EXAMINE  THE  USER  ENTERED  NRN 

ELEMENT  BV  ELEMENT 


PROCEDURE  INTTOSTRING  «t«t* 


I  INTECER  ARCUMENT  WHICH  IS  INTECER  TO  BE  CONVERTED  INTO 

STRINC  TEXT 


ILOHC  LONC  INTEGER  TO  CONVERT  VARIABLE  I  (thli  procedural  INTO 

A  STRING 


FUNCTION  STRTOREAt 


FLAG  INTEGER  FLAC 

g  -  EXAMINE  TEMP  AS  A  TENS  DICIT 
1  a  EXAMINE  TEMP  AS  A  TENTHS  DICIT 


I 


INTEGER  COUNTER 


tSTR  STRING  INPUT  ARGUMENT 


K  INTECER  VARIABLE  WHICH  STATES  THE  NUMBER  OF  PLACES 

TEMP  IS  TO  THE  RIGHT  OF  THE  DEC INAL  POINT 


M  INTECER  COUNTER 


TEMP  STRING  VARIABLE  CARRYINC  A  SINGLE  OF  STRINC  ISTR  Uhl* 

pro«*dar*> 


TENS  REAL  VARIABLE  CONTAINING  THE  NUMERICAL  VALUES  OF  THE  TENS 

01 CITS  IN  VARIABLE  ISTR  (this  proetdar*) 


TENTHS  REAL  VARIABLE  CONTINUING  THE  DECIMAL  VALUES  OF  THE 

TENTHS  DIGITS  IN  VARIABLE  ISTR  (this  procedural 


VAl  STRING  CONSTANT  CONTAINING  ALL  PERMISSIBLE  ELEMENTS 

THAT  CAN  BE  IN  A  NRN 


E  REAL  VARIABLE  TRANSLATING  THE  POSITION  OF  TEMP  Uhl* 

procedure)  IN  VAL  (thle  procedure)  INTO  A  NUMBER 


PROCEDURE  CROSS 


l  INTEGER  VARIABLE  WHICH  IS  A  STORACE  VARIABLE  FOR 

VARIABLE  LVL  <•**  GLOBAL  VARIABLES) 


32 


*■ 

* 


SEGMENT  PROCEDURE  DUMMY 


CONTROL  USED  BT  PROCEDURE  GRAPHICS  TO  INDICATE  WHICH  WIRE 

BLOCK  (1..S)  IS  TO  BE  DRAWN 


PROCEDURE  GRAPHICS 


ANS  STRING  VARIABLE  WHICH  HOLDS  THE  INPUT  CHARACTER  FOR 

FURTHER  PROCESSING  (STRING  OPERATIONS  CANNOT  BE  DONE 
ON  VARIABLE  CHAR) 


J  INTEGER  VARIABLE  USED  TO  HOLD  THE  NUMERIC  ASCII  VALUE  OF 

A  CHARACTER 


E. Y  INTEGER  VARIABLES  USED  AS  SCREEN  COORDINATES  FOR  GRAPHICS 


PROCEDURE  LABELS 


I , Y  INTEGER  ARGUMENTS  WHICH  INDICATE  THE  LOVER  LEFT-HAND 

CORNER  WHERE  CHARACTERS  ARE  TO  BE  DISPLAYED 


Et  INTEGER  HOLDING  CELL  FOR  VARIABLE  E  <  thi *  procedural 


PROCEDURE  DRAVBLX 


E.Y  INTECER  ARGUMENTS  WHICH  INDICATE  THE  LOWER  LEFT-HAND 

CORNER  WHERE  THE  NODE  BLOCKS  ARE  TO  BE  DRAWN 


t 


SEGMENT  PROCEDURE  VVLOAD 


INS  STRING  VARIABLE  VHICK  HOLDS  THE  INPUT  CHARACTER  CH 

(•••  GLOBAL  VARIABLES)  FOR  TUTURE  STRING  OPER>TIONS 


CHI  CHARACTER  VARIABLE  WHICH  CONTAINS  RESPONSE  TO  VARIOUS 

OPTION  WVC  SINGLE  CHARACTER  RESPONSE  PROMPTS 


COLOR  ARRAY  USED  TO  IDENTIFY  COLORS  USED  IN  DISPLAYS 


EIITFLAC  INTEGER  FLAG  USED  TO  INDICATE  NORMAL  EXIT  FROM  PROCEDURE 

RDV 


J.R.L  INTEGER  VARIABLES  USED  AS  COUNTERS  AND  ARRAY  INDICES 


LABEL1  STRING  VARIABLE  WHICH  CONTAINS  'WEIGHTS'  OR  'VALUE' 

DEPENDING  ON  THE  SUB-OPTION  SELECTED.  USED  IN  OUTPUT 
DISPLAYS 


OPT  CHARACTER  VARIABLE  WHICH  CONTAINS  USER  INPUT  SUB-OPTION 

UNDER  OPTION  WVC 


PPOS  INTECER  VARIABLE  WHICH  CONTAINS  THE  CURRENT  r  ;  ..1AT, 

BEING  DISPLAYED  <1  FIRST  ALTERNATIVE,  ETC) 


X.Y  INTEGER  VARIABLES  WHICH  ARE  USED  AS  THE  SCREEN  COORDINATES 

FOR  GRAPHICS.  THEY  OFTEN  INDICATE  THE  LOVER  LEFT-HAND 
CORNER  FOR  CHARACTERS,  BARS  AND  BOXES 


XI  INTEGER  VARIABLE  CONTAINING  THE  ABSOLUTE  LEFT  MARCIH 

OF  GRAPHICS  SCREEN.  USED  IN  INTERACTIVE  GRAPHICS 


REAL  ARRAY  WHICH  CONTAINS  THE  INPUTTED  NEW  VALUES 


M 


VRAY1 


OF  ALTERNATIVES  FOR  A  SPECIFIED  ATTRIBUTE.  LOADED 
INTO  VRAY  (•••  GLOBAL  VARIABLES)  WHEN  SUB-OPTION  VALUB 
IS  EXITED  NORMALLY 


PROCEOURf  DRAWBAR  ««•«« 

A(1  INTECER  ARGUMENT -REPRESENTING  THE  X  AND  Y  SCREEN  COORDINATES 

OF  A  COLOR  BAR 


C  INTECER  ARCUMENT  REPRESENTING  THE  ALTERNATIVE  ( laFIRBT 

ALTERNATIVE,  ETC) 


V  REAL  ARGUMENT  REPRESENTING  THE  WORTH  VALUE  OF  THE 

ALTERNATIVE  SPECIFIED  BY  VARIABLE  C  (thl»  proctdara) 


PROCEDURE  SQUARES 


A, B  INTEGER  ARGUMENTS  REPRESENTING  THE  X  AND  Y  SCREEN 

COORDINATES  OF  THE  LOWER  LEFT-HAND  CORNER  OF  NODE 
BOXES 


PROCEDURE  RDWT 


1NT  INTECER  VARIABLE  CONTAINING  TRUNCATED  RELATIVE  WEIGHTS 

,  MULTIPLIED  BY  100 


J  INTEGER  COUNTER  AND  ARRAY  INDEX 


LR  REAL  VARIABLE  USED  AS  THE  SUM  OF  ALL  INPUT  WEICHTS  FOR 

NORMALIZATION 
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PROCEDURE  CALC 


QUITFLAC  INTEGER  FLAG  W.’ICH  IS  SET  TO  ONE  WHEN  A  BRANCH  OF  A  TREE 

HAS  BEEN  PROCESSED  (CUNULATIVE  WEICHTS  CALCULATED  AND 
VALUES  ASS1CNED) 


2  REAL  VARIABLE  WHICH  CONTAINS  INTERMEDIATE  NODE  VALUES 


a 

SECHENT  PROCEDURE  NUN  * 


CK1  CHARACTER  VARIABLE  WHICH  CONTAINS  RESPONSES  TO  OPTION 

NUN  SINGLE  CHARACTER  RESPP'  PROMPTS 

F  FILE  OF  CHARACTERS  USED  AS  AN  OUTPUT  BUFFER  TO  THE  CONSOLE 

OR  THE  LINE  PRINTER 

J  INTEGER  COUNTER  ANO  ARRAY  IHDEF 

OUT  STRING  VARIABLE  -  NOT  USED 


PROCEDURE  DISPLAY 


I.J.H.L  INTEGER  COUNTERS  AND  INDICES 


PROCEDURE  DISPLAY! 


I  .J.K.l 


INTEGER  COUNTERS  AND  INDICES 


PROCEDURE  D1SPLAY2 


CONTROL  INTLutR  VARIABLE  WHICH  CONTAINS  THE  NODE  DICIT  VALUE 

OP  A  DESCENDENT  DURINC  GRAPHICAL  DISPLAY 


riAG2  SPECIFIES  PARTICULAR  GRAPHICAL  DISPLAY  PACKAGE 

1  -  DESCENDENT  DISPLAY  (BARS  UNDER  NODE  BOX) 

2  -  PARENT  DISPLAY  (BARS  TO  THE  RICHT  OF  NODE  BOX) 
1  *  LEGEND 


J  INTEGER  COUNTER  AND  ARRAY  INDEX 


X,Y  INTECER  SCREEN  COORDINATES  FOR  A  VARIETY  OF  GRAPHICAL 

ITEMS.  FOR  BOXES  AND  CHARACTERS,  THEY  REPRESENT  THE 
LOVER  LEFT-HAND  CORNER 


PROCEDURE  SYSBLK 


CONTROL  I  INTEGER  VARIABLE  WHICH  IDENTIFIES  ALTERNATIVES  DURING 

COLOR  BAR  PRINTOUTS 


Y I  INTEGER  VARIABLE  WHICH  CONTAINS  THE  SCALED  HEICHT 

OF  COLOR  BARS  MS  VERTICAL  SCREEN  LINES  IS  100  IN 
ALTERNATIVE  VALUE) 


SEGP2NT  PROCEDURE  SENSITIVITY 

ittitiaittiiifittiiiiiui  itia 


CHI  CHARACTER  VARIABLE  WHICH  CONTAINS  RESPONSES  TO  SENSITIVITY 

SINGLE  CHARACTER  RESPONSE  PROMPTS 


DELTA 


REAL  VARIABLE  CONTAINING  THE  INTERVAL  SIZE  BETWEEN  THE 
"ROOT'  NODE  VALUE  AXIS  (X-AXIS)  ON  THE  SENSITIVITf  CRAPH 


I.J.JC.l 


INTECER  COUNTESS  AND  ARRAY  INDICES 


INDZ 

MAE 

MIN 

SENS 

SYSNAME 

SYSNUM 

tf 

WDELTA 

VHOLD 

WMAI 


INTECER  CONTAINING  NODE  DICIT  OF  NODE  WHEN  RELATIVE 
VEICHT  SENSITIVITY  ANALYSIS  IS  CONDUCTED 


REAL  VARIABLE  CONTAINING  THE  NAZI MUM  VALUE  OF  ALL  THE 
ALTERNATIVES  FOR  THE  ENTIRE  SENSITIVITY  ANALYSIS  IF 
EZPANDED  GRAPHICS  IS  EZERCISED.  ELSE  100 


REAL  VARIABLE  CONTAINING  THE  MINIMUM  VALUE  OF  ALL  THE 
ALTERNATIVES  FOR  THE  ENTIRE  SENSITIVITY  ANALYSIS  IF 
EZPANDED  CRAPH1CS  IS  EZERCISED.  ELSE  0 


STRING  VARIABLE  WHICH  CONTAINS  THE  TYPE  OF  SENSITIVITY 
ANALYSIS  BEING  CONDUCTED  (CUMVT.  RELVT.  OR  VALUE) 


STRING  VARIABLE  HOLDING  ALTERNATIVE  NAME  WHEN  VALUE 
SENSITIVITY  IS  INVOKED 


INTEGER  VARIABLE  HOLDING  SYSNAME  (this  proctdurt)  POSITION 
IN  THE  SYSTEM  RECORD  FILE  <*••  GLOBAL  VARIABLES) 


REAL  VARIABLE  NOT  USED 


REAL  VARIABLE  WHICH  CONTAINS  THE  STEP  SIZE  OF  THE  PERTURBED 
VARIABLE  (CUMLATIVE  WEIGHT,  RELATIVE  WEICHT  OR  ATTRIBUTE 
VALUE) 


REAL  ARRAY  HOLD1NC  ALTERNATIVE  VALUES  BY  ALTERNATIVES 
IN  COLUMNS  AND  U  VARIABLE  PERTURBATIONS  (CUMULATIVE  WEIGHT. 
RELATIVE  WEICHT,  OR  ATTRIBUTE  VALUE)  IN  THE  ROWS.  ROW  0 
HOLDS  THE  MINIMUM  PERTURBATION,  ROW  10  HOLDS  THE  HAZIHUH 


REAL  VARIABLE  CONTAINING  THE  MAXIMUM  POSSIBLE  INPUT 
VALUE  <10  TOR  WEIGHTS  AND  100  FOR  VALUES)  IT  WNAXl 
<»hi*  proc«dur«)  IS  LESS  THAN  THESE  MAZIMUMS  AND 


GREATER  THAN  VMIN,  WAX  IS  VHAXl 


WHAX1  REAL  VARIABLE  VHICH  CONTAINS  THE  USER  INPUTTED  MAXIMUM 

VALUE  TO  BE  USED  IN  THE  SENSITIVITY  ANALYSIS 


VMIN  REAL  VARIABLE  VHICH  CONTAINS  THE  USER  INPUTTED  MINIMUM 

VALUE  TO  BE  USED  IN  THE  SENSITIVITY  ANALYSIS 


X  REAL  VARIABLE  VHICH  CONTAINS  THE  VALUE  OP  THE  •ROOT- 

NODE  FOR  DISPLAY  ON  THE  X-AXIS  OF  THE  SENSITIVITY  GRAPH 


PROCEDURE  CALCARRAY 


CONTROL  INTEGER  VARIABLE  VHICH  INVOKES  THE  NECESSARY  SENSITIVITY 

ANALYSIS  DEPENDING  ON  ITS  VALUE 

1  >  CUMULATIVE  VEIGHT 

2  -  RELATIVE  VEIGHT 
1  a  VALUE 


KEVSUM  REAL  VARIABLE  NOT  USED 


SUM  REAL  VARIABLE  CONTAINING  ONE  MINUS  THE  RELATIVE  VEIGHT 

OF  THE  PERTURBED  NODE  VHICH  IS  USED  TO  INSURE 
PROPORTIONALITY  AMONG  THE  SIBLINCS  DURING  RELATIVE  VEIGHT 
SENSITIVITY  ANALYSIS 


VTEMP  REAL  VARIABLE  NOT  USED 


PROCEDURE  HEADERS 


I  INTEGER  ARCUMENT  VHICH  SELECTS  VARIOUS  OUTPUT  HEADERS. 

VHEK  EQUAL  TO  TVO,  I  IS  ALSO  USED  AS  AN  ARRAY  INDEX 


PROCEDURE  TASDISPLAY 


A 

r 

STAR 

V 


11  ,41 

X 

COLOR 


STRING  VARIABLE  USED  TO  DETERMINE  REGRET  (PUTTING  THE 
ASTERISK  ON  THE  LOWEST  VALUE)  OR  NOT  RECRET  (PUTTING 
THE  ASTERISK  ON  THE  HIGHEST  VALUE) 


FILS  OF  CHAR  USED  AS  AN  OUTPUT  BUFFER  TO  CONSOLE  OR  LINE 
PRINTER 

INTECER  VARIABLE  CONTAINING  THE  NUMBER  OF  THE  ALTERNATIVE 
IN  ARRAY  VHOLD  SEGMENT  PROCEDURE  SENSITIVITY)  WHICH 

HAS  THE  LOWEST  VALUE  (IF  VARIABLE  A  (thif  procedure)  IS 
'R')  OR  THE  HIGHEST  VALUE  (IF  VARIABLE  A  ((Me  procedure) 
IS  NOT  * R ' )  .  AN  ASTERISK  WILL  BE  PLACED  BY  THIS  VALUE 


REAL  VARIABLE  CONTAINING  CURRENT  ’  JWEST  VALUE  OR  CURRENT 
HIGHEST  VALUE  DEPENDING  ON  VARIABLE  A  (thle  ptooedure) 
DURING  THE  SEARCH  FOR  THE  LOWEST  OR  HIGHEST  VALUE  OF  A 
CIVEN  ROW  OF  WHOLD  (tee  SECMENT  PROCEDURE  SENSITtVITY) 


PROCEDURE  CRAPH 


INTEGER  VARIABLES  WHICH  CONTAIN  THE  X  AND  Y  SCREEN 
COORDINATES  WHERE  THE  LINES  OF  THE  ALTERNATIVES  ARE  TO 
BE  DRAWN  ON  THE  SENSITIVITY  GRAPH 


INTECER  COUNTER 


ARRAY  OF  AVAILABLE  COLORS  USED  IN  THE  SENSITIVITY  CRAFK 
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*  SEGMENT  PROCEDURE  READSYSTENB  • 

•  • 

PROCEDURE  NEW  «*«** 

SYSLABEL  STRINC  VARIABLE  USED  TO  READ  IN  ALTERNATIVE  LABELS 

**«*«  PROCEDURE  OELSYS  ***•« 

SYS  STRING  ARRAY  CONTAINING  ALL  CURRENT  ALTERNATIVE  NAMES 

PRESENTLY  EVALUATED  IN  HIERARCHICAL  STRUCTURE 

J  INTEGER  COUNTER 


SEGMENT  PROCEDURE  MOOPRU 


»*«»*  PROCEDURE  PRUNE  »'»»i 

fLAGl  INTEGER  FLAG  (IN  PROCEDURE  GRAPHICS)  WHICH  GOES  TROM 

0  TO  I  IEN  THE  LAST  NODE  IS  REACHED  AFTER  PRUNING. 

USED  TO  COUNT  NEW  NUMBER  OF  NODES. 

J,K  INTEGER  ARRAY  INDEX  AND  COUNTERS 

NEWLVL  INTECER  VARIABLE  CONTAINING  THE  NUMBER  OF  LEVELS  IN  THE 

HIERARCHICAL  STRUCTURE  AFTER  PRUNING 


NEWNNODES  INTEGER  VARIABLE  WHICH  CONTAINS  THE  NUMBER  Or  NODES  IN 

THE  TREE  AFTER  PRUNING 


PRAY  INTEGER  ARRAY  WHICH  CONTAINS  ALL  LINKS  FOR  ALL  THE  NODES 

IN  THE  HIERARCHICAL  TREE.  NODE  NUMBER  RUNS  ALONG  THE 
COLUMNS . 

ROW  1  THE  NUMBER  1 . .NUMBER  OF  NODES  (0  MEANS  NO  NODE) 
ROW  2  THE  NUMBER  1 . .NUMBER  OF  NODES  (ALTERED 
DURING  PRUNINC  -  0  IF  NO  NODE) 

ROW  3  NODE  DICIT 
ROW  4  DOWNLINK 
ROW  S  CROSSLINK 
ROW  i  BACKLINX 


PRNUM  INTECER  VARIABLE  CONTAINING  THE  NODE  RrCORD  NUMBER  OF 

NODE  TO  BE  PRUNED 


PROCEDURE  MODIFY 


IQUIT  SET  FROM  0  TO  I  WHEN  THE  USER  WISHES  TO  EXIT  THE 

OPTION  NOD  PRIOR  TO  ENTERING  A  NEW  LABEL  ENTRY 


VII.  e roorta  Structur* 


Th*  prograa  consists  of  several  segments  whieh  allow*  gutUi 
prograa  capability.  Tho  following  list  show  all  th*  procedures  that  aro 
currently  In  th*  DASS  program.  Whan  th*  procedure  Is  ind*nt*d.  It  aeans 
that  th*  procedure  is  local  to  th*  prograa  above  it. 


FROCRAN  DASS; 

UNIT  DASSA; 

PROCEDURE  NODEDI SKTOARRAT ; 
PROCEDURE  NODE ARRAYTODI SX ; 
PROCEDURE  NEZT; 

PROCEDURE  FIND; 

PROCEDURE  NODIN; 

PROCEDURE  PRENEZ; 

PROCEDURE  ANSVE RTOQU E STI ON ; 
PROCEDURE  MASTERNODESETUP; 
PROCEDURE  PRETOT; 

PROCEDURE  1NTTOSTRIN0; 
PROCEDURE  NUMTOSTRINC; 
FUNCTION  STRTOREAL; 
PROCEDURE  CROSS; 

SECMENT  PROCEDURE  DUNMT; 
PROCEDURE  CRAPNICS; 
PROCEDURE  LABELS; 
PROCEDURE  DRAVBLX; 
PROCEDURE  LA BEL ATTRIBUTES; 
PROCEDURE  READTITLE; 
PROCEDURE  SPAN; 

PROCEDURE  INITIALIZE; 
PROCEDURE  SELECTFILE; 

SECMENT  PROCEDURE  WLOAD; 
PROCEDURE  RDV ; 

PROCEDURE  DRAWBAR; 
PROCEDURE  SQUARES; 
PROCEDURE  SETUUP ; 
PROCEDURE  REVT; 

PROCEDURE  CALC; 

PROCEDURE  WVLOAD1; 


SEGMENT  PROCEDURE  NUM; 

PROCEDURE  OUTDEVICE; 

PROCEDURE  NUMERICREVIEV; 

PROCEDURE  NEVPG;  « 

PROCEDURE  DISPLAY; 

PROCEDURE  DISPLAY? ; 

PROCEDURE  D1SPLAY2; 

PROCEDURE  VTS; 

PROCEDURE  ORAVBLK; 

PROCEDURE  SYSBLK; 

PROCEDURE  DISPLAYO; 

SEGMENT  PROCEDURE  SENST1VITY; 
PROCEDURE  ANYKEY; 

PROCEDURE  VARNINU; 

PROCEDURE  DETERHINENODE; 

PROCEDURE  SENVALUE; 

PROCEDURE  CALCARRAY; 

PROCEDURE  HEADERS; 

PROCEDURE  TABDISPLAY; 

PROCEDURE  GRAPH; 

PROCEDURE  GRAPHHEADER; 

SECHENT  PROCEDURE  READSYSTEML ABELS ; 
PROCEDURE  HEW; 

PROCEDURE  DELSY8; 

PROCEDURE  ADOSYS; 

SEGMENT  PROCEDURE  MODP  JU; 

PROCEDURE  PRUNE; 

PROCEDURE  WDOT; 

PROCEDURE  RELINX; 

PROCEDURE  C0MPREB8; 

PROCEDURE  REWRITE; 

PROCEDURE  MODIFY; 

PROCEDURE  STAT; 


In  tho  progrin  listing  that  follows,  itch  progna  will  oontsin  s 
suaasry  snelostd  with  asterisks  (•>.  In  Ihs  sonnary,  ths  naai  of  the 
proesdors  will  bs  repeated.  In  addition,  s  brlof  discussion  of  tho 
purpose  or  nstaro  of  tho  proetdurt  is  prosontcd.  Following  that,  t  list 
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oi  procedural  which  celt  the  procedure  will  be  preeented.  The  ioraat 
liete  the  segaent  the  cell  ie  iroa  end  then  opacities  the  procedure 
neae(e)  in  perentheees.  Nett,  ie  e  lift  oi  procedure  ntae(s)  thet  the 
precedsre  ealle  daring  ite  eiecatlen.  Finally,  e  listing  oi  ceriebl.es  ie 
precided,  being  dicided  into  two  groups.  The  iirst  groap  (libelled  USED) 
indieetes  these  ceriebles  which  etc  used  but  net  changed  while  the 
procedure  Is  being  eieeuted.  The  second  group  (labelled  IfQpiFlES)  are 
these  calues  which  aay  change  during  eaeeutien  oi  the  procedure.  Note 
that  ii  the  procedure  calls  another  procedure,  ceriebles  which  change 
calues  under  tha  second  call  wilt  net  appear  in  the  original  cariable 


(»  PROGRAM  DABS  •> 


PROGRAM  DAS8;  CICt,S«, LPRIMTCR: *> 


PROGRAM  DABS 

USE:  MAIN  PROGRAM  FOR  THE  DECESION  ANALYSIS  SUPPORT  SYSTEM. 
CONSISTS  OF  ONE  UNIT  (DASSA),  SIX  SEGMENTS  (DUMMY. 
WLOAD.NUM, SENSITIVITY, READSYSTEMLABELS , MODPRU)  AND 
ONE  PROCEDURE  (ST AT)  GLOBAL  VARIABLES  ARE  FOUND  IN 

UNIT  DASSA.  SEGMENT  VARIABLES  ARE  FOUND  IN  THE 
VARIOUS  SECHENTS  AND  SUB-PROCEDURES  IN  THE  RESPECTIVE 
SEGMENTS. 

THE  MAIN  PROGRAM  GENERALLY  SETS  UP  THE  VARIABLES 
CRITICAL  IN  RUNNINC  OPTIONS  AND  SOLICITS  THE  COMMAND 
OPTIONS.  IN  EXECUTING  THE  DON  OPTION,  THE  MAIN 
CLOSES  ALL  OPEN  FILES  AND  ELEGANTLY  RETURNS  CONTROL 
TO  THE  DISK  OPERATING  SYSTEM. 

*•••  NOTE  • 

UNIT  DASSA  MUST  BE  COMPILED  SEPARATELY  AND  LOADED  INTO 
THE  SYSTEM. LIBRARY  (UNDER  APPLE  II  PASCAL  OPERATIONS) 
rOR  THE  REST  OF  THE  PROGRAM  TO  BE  COMPILED  CORRECTLY. 
IN  ADDITION,  OPTIONS  ALLOWING  COTD  AND  MEMORY  SWAPPING 
MUST  BE  PRESENT. 

PROGRAM  USES  THREE  UNITS: 

UNIT  DASSA  CONTAINS  FUNCTIONS  NECESSARY  TO  RUN 
THE  DASS  PROGRAM  AND  CAN  BE 
MODIFIED. 

UNIT  TURTLEGRAPHICS  CONTAINS  FUNCTIONS 

NECESSARY  TO  CONDUCT  THE  GRAPHIC8 
CAPABILITY  OF  THE  APPLE  II  MICRO¬ 
COMPUTER.  THIS  UNIT  CANNOT  BE 
MODIFIED  BY  THE  USER. 

UNIT  APPLESTVFF  CONTAINS  THE  FUNCTION  WHICH 

ALLOWS  THE  COMPUTER  TO  WAIT  UNTIL  A 
SINGLE  KEY  IS  DEPRESSED  (KEYPRESS) 
THIS  UNIT  CANNOT  BE  MODIFIED  BY  THE 
USER. 

CALLED  BY:  (non*) 

ROUTINES  CALLED  SEGMENT  PROCEDURE  DUMMY 
SEGMENT  PROCEDURE  WVIOAD 
SECMENT  PROCEDURE  NUN 
.SEGMENT  PROCEDURE  SENSITIVITY 
SECMENT  PROCEDURE  RE ADSYSTEMLABELS 
SECMENT  PROCEDURE  MODPRU 
PROCEDURE  STAT 


(( 


VARIABLES: 


(•  PROGRAM  DABS  •> 


USED:  TEN8TR1NG , TITLE , LATT, NNODES ,NDEEP . NSYS , FLAG 
UNIT  DASSA) 

MODIFIED:  CMD.NODEIRATIONALE, NODETITLE . CELLNUMBBR, 

NRNDIGIT, DOWNLINK , CROSSLINK] , FLAG , NSYS, NFL AC, 
NDEEF, COMMENTSTR I NO , LABEL STRING , IRAY 
(in  UNIT  DASSA) 


USES  DASSA,  APPLESTUFF,  TURTLEGRAPHICS; 


/ 


(•  UNIT  DASSA  •> 


<MC*,S»  *> 

UNIT  DASSA; 

(*  ufiimiiitttiiiitttiitutmtiiiMtMHttmHMMitMtim 

•  UNIT  DASSA  • 

•  USE:  CONTAINS  THE  GLOBAL  VARIABLE  LISTING  AND  • 

•  PROCEDURES  WHICH  ARE  UNIVERSAL  TO  ALL  * 

•  SEGMENT  PROCEDURES.  THE  UNIT  IS  NOT  CALLED  « 

•  EXPLICITLY,  BUT  IS  USED  WHENEVER  THE  PROCEDURES  * 

•  IN  IT  ARE  CALLED.  • 

•  CALLED  BY:  (non*)  • 

•  ROUTINES  CALLED:  (non*)  • 

•  VARIABLES:  • 

•  USED:  (i'll)!)  * 

»  MODIFIED:  (non*)  • 

t«t *««««*<  •> 


INTERFACE 

CONST 

NAXSYSTEMSaS ; 

MAXLABELSIZEalO; 

MAX COMMENTS  I ZEa A 4 i 
MAXARRAYSI ZEa 1 0 ; 

MAXNUMBEROFNQOESalQl ; 

TENSTRINGa'  •} 

VAR 

COMMENTSTRING, LABELSTRING, FILENAME, ANSWER, F1LE0F5YSTEMS,DISKNAME  :  STRING; 
CH : CHAR; 

NSYS, I , RECORDI D ,NLVLS  :  INTECER; 

CMD.ISTR.LATT. TITLE, QUESTION  :  STRING; 

ICONT , I F  ADD ,1 , LVL , 

FLAC.NFLAG.NCROSS, I  FIND, 1T0TL , NDEEP.NDIFF , NNRN, NHODEB , OLDCELLNUM  : 

:  INTECER; 

NODELABEL  :  ARRAYIO. .MAXARRAYSI ZE1  OF  STRING; 

IRAY  :  ARRAYI0. .NAXARRAVSIZE.O. . 5J  OF  INTECER; 

ARAY  :  ARRAYIO .  MAXARR AYS  I ZE , I .. 21  OF  REAL; 

VRAY  :  ARRAY! 0 . . MAXARRAYSI ZE , 1 . . MAX SYSTEMS)  OF  REAL; 

NRNVECTOR  :  ARRAY  t 0 . . MAX AHRAYS I ZE )  OF  INTECER; 

NODE : FILt  OF  RECORD 

NODETITLE  :  STRINCtMAXLABEl  IZEJ; 

CELLNUMBER,  NRNDIGIT,  DOWNLINK,  CROSSLINK,  BACKLINK  :  INTECER; 


HELVE ICHT,  CUMVEICHT  :  RIAL; 

SYSTEMVALUES  :  ARRAY  U . .WAX SYSTEMS I  OF  REAL 
RATIONALE  :  STR INC (MAX COMMENTS I ZE) ; 

END; 

SYSTEMS : FILE  OF  RECORD 

SYSTEMNAME  :  STR INC CMAZL ABEL SIZE) 

END; 

<*  FROCEDVRE8  IN  DASSA  *5 

PROCEDURE  NOOEDISXTOARRAYIZ: INTEGER) ; 

PROCEDURE  NODEARRAYTOD1SKIZ: INTECER) t 
PROCEDURE  NEXT; 

PROCEDURE  FIND; 

PROCEDURE  NOOIN; 

PROCEDURE  PRENEZ; 

PROCEDURE  ANSVERTOQUESTION; 

PROCEDURE  MASTERNODESETUP; 

PROCEDURE  PRETOT; 

PROCEDURE  INTTOSTRINCI 1 : INTECER) ; 

PROCEDURE  NUMTOSTRINC(X.REAL); 

FUNCTION  8TRT0RE AL ( I STR ; STRINC ) : REAL ; 

PROCEDURE  CROSS; 


IMPLEMENTATION 


<•  UNIT  DASSA  *) 


PROCEDURE  NODEDISKTOARRAY ; 


PROCEDURE  NODEDISKTOARRAY  • 

USE:  TO  TRANSFER  DATA  READ  IN  FROM  RECORD  • 

NODE  TO  THE  IRAV  ARAT,  AND  VRAY.  * 

REQUIRES  AN  ARC  -ENT  WHICH  IS  EQUAL  T9  • 

THE  PARTI CULAF  iOW  (SPECIFIC  NODE  AT  A  • 

SPEC’ F I C  LEVI,  in  THE  TREE)  IN  THE  ARRAYS.  • 

CALLED  BY:  UNIT  DASSA  (NEXT,  CROSS,  FIND)  « 

SEGMENT  PROCEDURE  DUMMY  (SELECTFILE)  • 

ROUTINES  CALLED:  (non*)  • 

VARIABLES:  * 

USED:  NODE I CELLNUMBER.NRND1C IT, DOWNLINK  * 

CROSS  L I NK , BACXL I NK , R  E  LVE  t  CKT , CUMVE I CHT  * 

SYSTEMVALUESt I . .NSYS) , NODETITLE)  • 

NSYS  (*••  UNIT  DASSA)  • 

MODIFIED.  NODELABEL.  IRAY,  ARAY,  VRAY  (•••  • 

UNIT  DASSA)  • 

1  («••  PROCEDURE  NODEDISKTOARRAY)  • 

»•*«••*••••••*••**•*•••*•**•*•••••«•** *•••«••«*•*••**••  *> 


I : INTECER; 

BEGIN 

WITH  NODEA  DO 
BEGIN 

NODELABELIX) : »NODETITLE; 

IRAYCl.OJr-CELLNUHBER; 

IRAYIX, I ) : vNRNDIGIT; 

1RAYI X , 21 : a DOWNLINK; 

I RAY C  X ,31: •CROSSLINK; 

IRAYIX, 4):-BACKI.INXi 
ARAYCX, 1 1 : aRELVEIGKT; 

ARAYtX , 2) : ■CUMWEICHT; 

FOR  I : ■ 1  TO  NStS  DO  VRAY! X ,13: a SYSTEMVALUESt 1 1 ; 

END 

END:  (•  END  TRANSFERRING  RECORD  NODE  DATA  FROM  DISK  TO  ARRAYS  •) 


SB 


PROCEDURE  NODEARRATTOD1SX; 


PROCEDURE  NODEARRAYTOOISK 

USE :  TO  TRANSFER  DATA  READ  IN  FROM  ARRAYS  IRAY, 

ARAY,  VRAY,  AND  NODET1TIE  TO  RECORD  NODE. 
REQUIRES  AN  ARGUMENT  WHICH  IS  EQUAL  TO 
THE  PARTICULAR  ROW  (SPECIFIC  NODE  AT  A 
SPECIFIC  LEVEL  IN  THE  TREE)  IN  THE  ARRAYS. 
CALIED  BY:  SEGMENT  PROCEDURE  DUMMY  (SPAN) 

SECMENT  PROCEDURE  VVLOAD  (RDWT.RDV, CALC) 
ROUTINES  CALLED:  (i.tni) 

VARIABLES: 

USED:  NODELABEL,  IRAY,  ARAY,  VRAY,  NSY8 
(•••  UNIT  DASSA) 

HOD I F I  ED :  NODE  t  CELLNUMBER , NRNDI G IT , DOWNLINK , 

CROSSLINK , BACXL INK , RELWE I GHT, CUHWEICHT 
SYSTEMVALUESI 1 . .NSYS) , NODETITLE) 

(•••  UNIT  DASSA) 

I  (•••  PROCEDURE  NODEARRAYTODISK) 


VAR 

I  :  INTECER; 

BECIN 

WITH  NODE*  DO 
BEGIN 

NODETITLE : ■NODELABELCXI ; 

CELLNUMBER: -IRAY! Z, 01; 

NRNDI GIT: . IRAYt Z ,11; 

DOWNLINK: ■IRAYIX.ZJ; 

CROSSLINK : . IRAYCZ , 3  3 ; 

BACKL1NK : .IRAYt X , 4  3 ; 

RELWE I CHT : .ARAY t Z , 11 } 

CUMVEI CHT: .ARAY ( Z, 2 1 ; 

FOR  1.1  TO  NSYS  DO  SYSTEMVALUESI 1 1 : .VRAYCZ , 1 1 ; 

END 

ENO;  (*  END  TRANSFERRING  RECORD  NODE  DATA  FROM  ARRAYS  TO  DISK  •> 


PROCEDURE  NEXT; 


<*  UNIT  DA3SA  *) 


PROCEDURE  meet 

zi Kj's.'i.n" 

MCUUn  ut  IBm"  ,  '*  ™E  VMtMtU 

AHD  PRETOT,  then  THE  RDUTtwI  ™0CE00UES  PREWE* 
THE  DEPTH-FIRST  sn»,-uDUTm  WIU  PERF°RH  THE 

1»  ACCESSED  EACH  TIKE  THATDp«BJ  N°CE ‘  A  NEW  N0M 
called.  that  M0«cure  NEXT  is 

CALLED  BY:  SECHEMT  PROCEDURE  DUMMY  (SPAN) 

ROUTINES  CALu;ENJNf!0ErDUfiE  Wt0«  ‘WVLOADD 
VARIABLES-  OASSA  (NODEDI9KTOARRAY) 

USED;  NDIFF  (st«  UNIT  DASSA) 

«„ 

*  <•••  PROCEDURE  NEXT) 


tABEt  t; 

VAR 

2  :  INTEGER ; 

BEGIN 

IFdHAYtLVL,  JI  <.  o, 

THEN 

begin 

1  lr‘dVL<«i  >OR(LVl.NOIFF) ) 
THEN  ICONT:«0 

ELBE 

BECIN 

I:-LVC; 

THEN 

BEGIN 

LVL.LVI-); 

COTO  1 
CND 


ELSE 

bxcim 


* 
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UNCLASSIFIED 


NL 


SEER  <NOOB , 1 RATI  tVl . I) ) 
CtTlNODE )  , 
MOSED1SXTOARRAT  (Z> ; 
IRAK  Z,  3 J :  alRAYCLVl, ,  ft) 
tVl:-I 
INS 

END 

D 

SC 

KC1N 

Z :  »IVI«S ; 

IFURAYCZ.OJ.IRATtLVl.Jl) 

THEN  LVt:>Z 


ELSE 

BEGIN 

SEEKINODE, IRAYCLVL, t J) j 
CET(NODE) ; 
NODEDISKTOARRAY(Z) ; 
IRAY[Z,S1: a IRAYCIVL, 0 ) ; 
LVl: aZ 


«u»r 


C*  UNIT  DASSA  • 


PROCEDURE  FIND; 


•  PROCEDURE  FIND  • 

■  USE:  THIS  PROCEDURE  SEARCHES  THE  TREE  FOR  A  MATCH  • 

•  TO  THE  INPUT  NODE  INPUTTED  IF  PROCEDURE  KODIN  * 

•  UNIT  DASSA.  t 

•  CALLED  8T :  UNIT  DASSA  (NODIN)  • 

•  ROUTINES  CALLED:  UNIT  DASSA  (NODEDI SXTOARRAY)  • 

•  VARI ARLES :  • 

•  USED:  IF ADD, IFIND.NDIFF, I  RAY , NRNVECTOR  • 

•  (•••  UNIT  DASSA)  • 

•  MODIFIED:  IF ADD, IFIND.NDIFF , ICONT, LVL  • 

•  (•••  UNIT  DASSA)  • 

•  J ,  Z , CONTrL AC , QUITFL AC  • 

•  («••  PROCEDURE  FIND)  t 

limmitltltlttttttMtlllltltlHtttlHIttllltlHIMII  •) 

VAR 

CONTFLAG, QUITFL AC. J.Z  :  INTECER; 

BEGIN 

OUITFLAC:-0; 

IFADOr-Z; 

IFIND:.lj 

NDIFF:-0; 

J:-I) 

REPEAT 

BEGIN 

CONTFLAG :  .1  ; 

I F ( I R AY ( J , 1 1 .NRNVECTOR! J 1 > 

THEN 

BEGIN 

IF  < J.NLVLS) 

THEM 
BEGIN 
I CONT : ■ I ; 

LVL : a  J ; 

OUITFLAC: ■! 

END 

ELSE 

1ECIN 

I F  < IRAYC  J ,21(1) 

THEN 

SECIN 


5« 


(•  UNIT  DASSA 


PROCEDURE  NODIN: 

(•  IIHMIIIMM 


PROCEDURE  NODIN  • 

USE:  READS  IN  USER  INPUTTED  NODE  REFERENCE  NUMBER.  A 
HAS  THE  CAPABILITY  TO  FILTER  NON-NUMERIC  • 

INPUTS.  IF  AT  LEAST  ONE  NUMBER  HAS  BEEN  • 

ENTERED,  PROCEDURE  FIND  WILL  BE  INITIATED.  • 

CALLED  BV:  UNIT  DASSA  ( PRENEI >  * 

SEGMENT  PROCEDURE  NUN  (DISPLAY)  • 

SEGMENT  PROCEDURE  HODFRU  (MODIFY)  • 

ROUTINES  CALLED:  UNIT  DASSA  (FIND)  • 

VARIABLES:  • 

USED:  VAL  <•••  PROCEDURE  NODIN)  *  » 

MODIFIED:  NLVLS, I CONT. NRNV ECTOR . .ANSWER  • 

(Ml  UNIT  DASSA)  • 

l.E  (•«•  PROCEDURE  NODIK)  • 


CONST 

VAL-'01S»<3S7Sf; 

VAR 

I: INTEGER: 

I  .'STRING: 

BEGIN 

VRITELN(OUTPUT); 

VRITELN( OUTPUT. 'ENTER. . . NRNf ' ) ; 

RE AOLHt INPUT . ANSWER) ; 

ANSWER r-CONCATC  ANSWER): 

NLVLS : -0 : 

I CONT: *0: 

NRNVECTORI 01 : -8 ; 

FOR  I: -I  TO  LENCTH( ANSWER)  DO 
IECIN 

I .-COPY (ANSWER, I, 1>: 

1 F  ( P08  (I.VADOO) 

THEN 

BEGIN 

NLVLS. -NLVLS*!; 

NRNVECTORtNLVLSl : -POS ( X , VAL) • I i 
END 
END: 


Si 


<*  UNIT  OAStA  •) 

IP (NEVER) o> 

THIN  FIND 


D;  <•  CNO  PROCEDURE  MOOIN  *) 


(•  UNIT  Dim  •) 


PROCEDURE  PRIMES; 


PROCEDURE  PRENEI  • 

USE:  ELICITS  S  NODI  REFERENCE  KUNRER  PROH  TNI  USER  • 
AND  ir  VALID.  STARTS  THE  TREE  TRAVERSAL  AT  • 
NODE.  • 

CALLED  ST:  SEGMENT  PROCEDURE  DUHHT  (SPAN)  • 

SECHENT  PROCEDURE  WLOAD  ( WLOADt )  • 

SECHENT  PROCEDURE  HUH  • 

SECHENT  PROCEDURE  HODPRU  (PRUNE)  • 

ROUTINES  CALLED:  UNIT  DASSA  (NODIN)  • 

VARI ARLES:  • 

USED:  LVL.ICOMT  (•••  UNIT  DASSA)  • 

HOD! TIED:  NDirP.ITOTL  (■••  UNIT  DASSA)  • 

IIMItIHMIUtllltlilHIIIHHMttHMHMtMHtHI  •) 


SECIN 

NODIN; 

miCOKTOO) 

THIN 

SECIN 

MO!FP:aLVL; 
ITOTL : .0 
END 
END; 


(*  END  PROCEDURE  PRENEX  •) 


PROCEDURE  ANSWERTOOUESTION 


PROCEDURE  RN8VERTOOUE1T1 ON  • 

USE:  WRITES  OUT  A  PROMPT  CARRICO  IT  TME  VARIAIIE  • 

OUE8TIOH  AND  ACCEPTS  A  RESPONSE  TMROUCHT  TME  • 

VARIABLE  ANSWER.  LOOPS  UNTIL  TME  LETTER  7  OR  M  • 
IS  DEPRESSED  FOLLOWED  ST  A  CARRIACS  RETURN.  • 

CALLED  ST:  SEGMENT  PROCEDURE  WVLOAD  (RDWT)  • 

ROUTINES  CALLED:  (BOB*)  • 

VARIABLES:  • 

USED:  QUESTION  <•••  UNIT  DASSA)  • 

MODIFIED:  ANSWER  UNIT  DASSA I  • 

•  •iiHmniitiiinMiMHHiMitimmiiuiMHtmii  •> 


SECIN 

REPEAT 

SECIN 

WRITE (OUTPUT. OUESTIONI i 
RE ADLN ( INPUT , ANSWER ) 

END 

VNTI l (( ANSWER* • T 1 >OR < ANSWER. ' N •> > 

END:  (•  END  PROCEDURE  ANSWERTOOUESTION  •» 


(•  UNIT  DAM* 

PROCEDURE  HASTERNODESSTUP ; 


PROCEDURE  HASTERNODESETUP 

USE :  INITIALIZES  THE  VARIABLES  AND  ARRAYS  WHEN  CREATING 

A  NEV  TREE  STRUCTURE 

CALLED  ST:  SECHENT  PROCEDURE  DUMMY  ( SPAN, INITIAL! ZC > 
ROUTINES  CALLED:  <«•»•> 

VARIABLES: 

USED:  (noa«) 

MODIFIED:  NNODEB, NODELABEL, I RAY, ARAY.LVL 
UNIT  DASSA)) 


SSCIN 

NNODESraO; 

NODELABELCI) : ■’MASTER* i 

TOR  I.aO  TO  4  DO  iRAYt 0 , 1 1 : a»; 

ARAYC0,1) :a0; 

ARAYt 0,2>:a0; 

LVl:a« 

END;  <■  END  PROCEDURE  MASTERNODXSETUP  •) 


(•  UNIT  DASSA  •> 


procedure  pretots 

•  procedure  pretot 

•  VSC :  SITS  AM AT  POINTERS  TO  THE  TOP  Or  THE  TREE  STRUCTURE 

«  to  racpxac  tor  ah  entire  traversal 

■  CALLED  IT:  SEGMENT  PROCEDURE  DUHNV  (SPAN) 

•  SCCHENT  PROCEDURE  WIOAD  ( WVLOADI , CALC) 

t  SCCHENT  PROCEDURE  NUH 

•  SCCHENT  PROCEDURE  KOOPRU  (PRUNE) 

•  ROUTINES  CALLED:  <aan«) 

•  VARIABLES: 

•  USED:  KHODES  (•••  UNIT  DASSA) 

•  MODiriSD:  ICONT.NDIFP , LVL, ITOTL  (•••  UNIT  DASSA) 


BECIN 
I CONT : • I S 
NDirr:-i: 

LVl:.li 
ITOTL: -l; 

lriNNODESd)  THEN  I  CONT: -0 
END;  (•  END  PROCEDURE  PRETOT  •) 


<•  UNIT  DUU  •> 


PROCEDURE  IKTT08TRINC ; 


FROCEOURE  INTTOSTRINC 

USE:  TRANSLATE  AN  INTECER  VALUE  INTO  A  CHARACTER  STRING 

SO  THAT  IT  CAN  BE  PRINTED  ON  CITHER  THE  CONSOLE  OR  THE 
PRINTER  IN  EITHER  THE  TEXT  OR  CRAPHIC  NODE. 

CALLED  BT:  SECHENT  PROCEDURE  WLOAD  (SETUP) 

SECMENT  PROCEDURE  NUN  (NUHERl CREVI EV. DISPLAT1 ) 
SECHENT  PROCEDURE  SENSITIVITY  (HEADERS) 

ROUTINES  CALLEO:  'aon*> 

VARIABLES: 

USED:  I  (•••  PROCEDURE  INTTOSTRINC) 

HODirtED:  ISTR  (•••  UNIT  DASSA) 

I  LONG  (■••  PROCEDURE  INTTOSTRINC) 


VAR 

I  LONG -.INTECER; 

BEGIN 
I  LONG : ■ I ; 

STR<1 LONG, ISTR) ; 

I 8TR : aCOPT ( I STR , LENCTH ( I STX ) , 1 ) ; 

END;  (■  END  PROCEDURE  INTTOSTRINC  •) 


* 


I 


i 


PROCEDURE  NUMTOBTRING; 


(*  UNIT  DASSA  •> 


t 


PROCEDURE  NUNT08TR1NC 

USE:  TRANSLATE  AN  REAL  NUNIER  VALUE  INTO  A  CHARACTER  STRING 
SO  THAT  IT  CAN  BE  PRINTED  ON  EITHER  THE  CONSOLE  OR  THE 
PRINTER  IN  CITHER  THE  TEXT  OR  CRAPHIC  NODE 
CALLED  BY:  SEGMENT  PROCEDURE  WLOAO  <RDV> 

SECHENT  PROCEDURE  NUM  (DISPLAY! ,VTS> 

SEGMENT  PROCEDURE  SENSITIVITY  ( CRAFK. CRAPHHEADERS I 
ROUTINES  CALLED:  (non*) 

VARIABLES: 

USED:  X  <•••  PROCEDURE  NUMTOSTRIMS) 

MODIFIED:  ISTR  lilt  UNIT  DASSA) 

I  LONG  (•••  PROCEDURE  NUMTOSTRINC 


* 


VAR 

I  LONG 


INTEGER; 


1 


BEGIN 

I  LONG : -TRUNCl 100*1) ; 

STR ( I  LONG , I 8TR ) ; 

IT  < I  LONG* I  OS )  THEN  1ST*: .CONCAT( , ISTR) ; 
INSERT  <  * . ' , ISTR. PRED(IENCTH< ISTR)) >; 

ISTR: -CONCAT< •  ’.ISTR); 

I STR: -COPT (ISTR, LENGTH* I STR) -5, 4) 

END; 


I 


i 


i 


i 


n 


(•  UNIT  DUlJk  •> 


FUNCTION  STRTOREAL; 


FUNCTION  STRTOREAL 

USE:  TRANSLATE  A  STRING  VARIABLE  AND  RETURNS  A  REAL  VALUE. 
CAPABLE  OF  FILTERING  NON-NUNERIC  CHARACTERS  FROM  THE 
INPUT  STRING. 

CALLED  IT:  SECHENT  PROCEDURE  WLOAD  (RDV.RDVT) 

SECHENT  PROCEDURE  SENSITI V ITT ( DETERNINENODE) 
ROUTINES  CALLED:  (•>«••) 

VARIABLES: 

USED:  I STR  (•••  UNIT  DASSA) 

VAl  (•••  FUNCTION  STRTOREAL! 

MODIFIED:  FLAG , X .TENS .TENTHS . I ,TEHP , J. X ,« 

FUNCTION  STRTORCAL) 


CONST 

VAL«‘ 31IJ4547IP  .  *  ; 

VAR 

TENS .TENTHS ,E : REAL ; 

I , J , K ,M , FLAG: INTECERj 
TEMP: STR INC; 

BEGIN 
FLAG : ■> ; 

K :  ■  I ; 

TENS: -I; 

TENTHS : »0 ; 

FOR  I:. I  TO  LENCTHI I STR )  DO 
BEGIN 

TEMP: . COPT ( ANSWER, I ,1); 

J  -POS(TEMP.VAL) i 
ir<JOB> 

THEN 

BECIN 

if<  j-m 

THEN  FLACr-l 


I F  < FL AC.  |  ) 

THEN 
BECIN 
I  .J-t, 

FL AG  : *  I  ; 

FOR  M:  .1  TO  F  DO  E  •!/ 1 0; 


4  4 


TENTHS : ■TENTHS*! ; 

END 

ELSE 

BEGIN 

X.-J-I; 

TENS: .TENS* 10 4 I 
END 

END 

END; 

STRTOREAL : ■TENS»TENTHS 
END;  <•  END  FUNCTION  STKTOREAL  •> 


(•  UNIT  DASSA  • 


i 


PROCEDURE  CROSS; 

(•  ttttt •«***••••* 

«  PROCEDURE  CROSS 

•  USE:  PLACES  ALL  THE  NODES  OP  A  OESCENDENT  SPAN  IN  THE  ARHATS  • 

•  UNDERNEATH  A  CIVEN  NODS.  • 

•  CALLED  BP:  SEGMENT  PROCEDURE  NUN  ( DJ SPLAV . DISPLATO )  • 

•  SEGMENT  PROCEDURE  SENSITIVITY  ( DETERM I NENODE)  • 

•  ROUTINES  CALLED:  UNIT  DASSA(NODEDISKTOARRAY>  • 

•  VARIABLES:  • 

•  USED:  (noil*)  • 

•  MODIFIED:  LVL.NCROSS, IF ADD, IRAY  • 

•  (Ml  UNIT  DASSA)  • 

•  L  (»••  PROCEDURE  CROSS)  ■ 

(HltMHIIIHttlHtttllttUOtHIHMHmnitHHIIItUltHt  •  > 

VAR 

t: INTEGER; 

SECIN 
L : aLVL; 

NCROSS:»0; 

IFADD:«S  > 

VHILEdRAYILVL.  IFADDIOO)  DO 
BEGIN 

LVl : »LVL* l ; 

IRAYCLVL.01 :.IRAYtLVL-I .IFADDJ; 

SEEK (NODE , I RAY (LVL >01); 

CET(NODE); 

NODEDISKTOARRAY(LVL) ; 

IFADD.aS 

END; 

NCROSS : aLVL-L ; 

LVl: -l 

END;  <•  END  PROCEDURE  CROSS  «> 


H 


(•  UNIT  DASSA  •> 


t.  C'HENT  PROCEDURE  DUMMY  j 

•  SEGMENT  PROCEDURE  DUMMY  * 

•  USE:  THIS  SECMENT  CONTAINS  THOSE  ROUTINES  WHICH  ARE  • 

•  USED  TO  GENERATE  NEW  TREE  STRUCTURES .  IN  ADDITION,  • 

«  THIS  SECMENT  IS  USED  WHEN  OPENING  NEW  DISK  rtLES  * 

«  FOR  SUBQUEKT  ACTIVITY.  * 

•  CALLED  BY:  DASS  • 

>  ROUTINES  CALLED:  SEGMENT  PROCEDURE  DUMMY  (GRAPHICS,  • 

•  LABELATTRI BUTES, READTITLE ■ SPAN,  • 

•  INITIALIZE,  SELECTFILE)  » 

•  VARIABLES:  • 

•  USED:  CMD  • 

•  MODIFIED:  (non*)  • 

iiitittitiMiiiititttttoitttitmittuimtittittitiitttiii  •) 

VAR 

CONTROL: INTEGER: 


(I 


<•  SECMENT  PROCEDURE  DUMMY  •) 


PROCEDURE  GRAPHICS; 


PROCEDURE  GRAPHICS  • 

USE.  THIS  PROCEDURE  IS  CALLED  ST  SPAN  TO  CREATE  A  • 

CRAPHICAl  DISPLAT  OP  THE  TREE  STRUCTURE  AS  IT  IS  • 
CREATED.  THIS  CRAPHICAL  FACKACE  DRAWS  THE  WIRING  • 

TREE  DIACRAM  AS  WELL  AS  HANDLES  THE  LINKACES  FOR  • 

INPUTTING  NODE  LABELS  INTO  THE  TREE  STRUCTURE.  * 

THIS  PROCEDURE  HAS  TWO  SUBORDINATE  PROCEDURES  • 

(LABELS  and  DRAWBLK)  WHICH  AID  IN  THE  CRAPHICS  • 

DISPLAT.  • 

CALLED  ST:  SEGMENT  PROCEDURE  DUMMY  (SPAN)  • 

ROUTINES  CALLED:  SEGMENT  PROCEDURE  DUMMY  (LABELS, DRAWBLK)  • 
VARIABLES:  • 

USED:  NODELABEL  («aa  UNIT  DASSA)  • 

CONTROL  < taa  SEGMENT  PROCEDURE  DUMMY)  • 

MODIFIED:  ANSWER  <•••  UNIT  DASSA)  • 

E.Y.ANS  • 


VAR 

I,Y<<):  IN1ECER; 
ANS: STRING: 


(•  SECHENT  PROCEDURE  DUMMY  •) 


PROCEDURE  LABELS (X , Y: INTEGER) ; 


PROCEDURE  LABELS  • 

USE:  SUBORDINATE  PROCEDURE  TO  PROCEDURE  CRAPNICS.  THIS  • 

PROCEDURE  ENABLES  CHARACTER  INPUT  FROM  THE  USER  • 

TO  8E  DISPLAYED  IN  "REAL  TINE1*  ON  THE  MONITOR  IN  • 
THE  CRAPHICS  NODE.  THE  ARCUMEHTS  USEO  IN  THIS  « 

PROCEDURE  ARE  THE  SCREEN  COORDINATES  Or  THE  * 

LOVER  LEFT  CORNER  WHERE  THE  FIRST  CHARACTER  IS  TO  * 
BE  DISPLAYED.  BACKSPACE  FUNCTION  IS  AVAILABLE.  • 

ENTRY  TERMINATES  WHEN  ANT  OF  THREE  CONDITIONS  ARK  • 
NET:  • 

1)  THE  WORD  DONE  IS  TYPED  • 

2)  WHEN  THE  RETURN  KEY  IS  DEPRESSED  • 

3)  WHEN  MORE  THAN  IB  CHARACTERS  (NOT  • 

INCLUDING  BACKSPACED  CHARACTERS)  ARE  * 

ENTERED  • 

CALLED  BY:  SECHENT  PROCEDURE  DUMMY  (GRAPHICS)  • 

ROUTINES  CALLED:  (non*)  * 

VARIABLES:  • 

USED:  (non*)  • 

MODIFIED:  E.Y.EI  • 

ANSWER, CH  (*••  UNIT  DASSA)  • 

J.ANS  (•••  PROCEDURE  GRAPHICS)  • 

•  lutimnHmiitttiiiMiitHiiiimtitiiMiHmiituM  «> 

VAR 

El '.INTEGER; 


8ECIN 

Xl:-X; 

ANSWER:-"  ;ANS:-* 
MOVETO(X.Y) ; 

REPEAT 

BEGIN 


REPEAT 

UNTIL  KEYPRESS; 
READ(CH)  ; 

ANSI 1 ) : -CH; 

4  «ORD<CH> ; 

IF (NOT  EOIN) 


70 


(•  SEGMENT  PROCEDURE  DUMMY  •> 


THEN 

REGIN 

IP(JOI) 

THEN 

BEGIN 

IF ( CH« '  *>  THEN  CH:«*  *j 
VCHAR ( CM  > i 

ANSWER:. CONCAT< ANSWER, ANS); 

END 

ELSE 

IF ( II <X ) 

THEN 

BEC1N 

MOVETOt X-7 , Y > ; 

WCHARC  *  ) i 
NOVETOt  X-7 , Y> : 

ANSWER : -COPY < ANSWER, 1 , t LENGTH! ANSWER) -1 ») s 
I:.E-7 
END; 

RND; 


END 


UNTIL  ( ( ANSWER. 'DONE ' ) OR ( EOLN) OR (LENGTH (ANSWER) >.10) ) ; 


(*  SECHENT  PROCEDURE  OUHKT  •> 


PROCEDURE  DRAWBLKIX , Y : INTECER) ; 


PROCEDURE  DRAWBLK  ( I ,Y : INTEGER)  ■ 

USE:  DRAWS  RECTANGLES  CONTAINING  NODE  LABELS.  THIS  • 

PROCEDURE  IS  SUBORDINATE  TO  PROCEDURE  GRAPHICS.  THE  • 

TWO  ARGUMENTS  REPRESENT  THE  LOWER  LEFT  CORNER  OP  THE  • 
RECTANGLE.  THE  RECTANGLE  IS  DRAWN  BY  COLORING  THE  • 

ENTIRE  RECTANCLE  AREA  WITH  THE  DESIRED  RECTANGLE  • 

COLOR  OUTLINE  AND  IS  THEN  PILLED  IN  BY  THE  BACKGROUND  « 
COLOR.  • 

CALLED  BY:  SECHENT  PROCEDURE  DUMMY  (GRAPHICS)  • 

ROUTINES  CALLED:  (noaa)  • 

VARIABLES:  • 

USED:  I.Y  • 

MODIFIED:  (non*)  • 

'• ••****•** ***•*• •••••••••••••••••••, •*****•*** **•*• *••*•*•  •) 


VIEWPORT*!, X»73 , Y, Y*1 J > ; 
FILLS CREEN (GREEN); 
VIEVPORT(I*i.X»73,Y»t.Y*ll); 
FILLSCREEN(BLACK) ; 
VIEWPORTS,  Z77  ,0, 171 ) 


(•  SEGMENT  PROCEDURE  DUMMY  •> 


(• 


t 


•  START  PROCEDURE  GRAPHICS 


■ECIM 

ANSWER:- * 

CASE  CONTROL  OP 


1: 

BEGIN 

I:. 103;  Y:-m;  DRAVSLKCt.Y) ; 

ANSWER: -MODEL ABElfLVLl ; 

KOVETO< 107,110);  WSTRINGl ANSWER) j 
I: -9;  Y  : -1 II :  DRAWBLK(X.Y) ; 

MOVETO ( 137,171);  PENCOLOR(CREEN) ; 

MOVETO (137,141);  MOV£TO( If . 1 4 1 > .  MOVETOI If , lit ) ; 
PENCOLOR <NONE ) ; 

LABELS(2«2,Y«2) 

END; 

2: 

SECIN 

X: -103;  Y-.-113;  DRAWBLK(E,Y) ; 

MOVETOI I  If, 141); 

PENCOLOR(GREEN) ;  MOVETOI IIP, 130 ; 

PENCOLOR (NONE); 

IA8ELS(X*2.Y»2> 

END: 

I: 

BEGIN 

X :  -20  9  i  Y:-1H;  DRAWBLK ( X ,  Y)  ; 

MOVETOI I If, 1 41);  PENCOLOR (GREEN) ; 

MOVETOdlf  ,  141)  ;  MOVETO ( 2 If  ,124): 

PENCOLOK (NONE ) ; 

LABtLSt  2*2 , Y« 2 ) 

END; 


4: 

BEGIN 

I ; -33  ;  Y:-43;  DR AWBLK ( X , T ) ; 
MOVETO(f), 141) ;  PENCOLOR ( GREEN > ; 
KOVtTOl f 1,31);  PENCOLOR (NONE ) ; 
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u 


(*  3CCNENT  PROCEDURE  OUKKT  •> 


LAIELX  Z«1 ,1*1) 
END; 


5: 

iecin 

I:*13S;  Y:«4i;  DXAVBLX(I.Y) ; 
MOVtTOl It' ,111);  PENCOLOR (GREEN) ; 
HOVETOUYl.il) ;  PENCOLOXINONE ) ; 
tABEl*(X«t.Y«2> 

END; 


tND 

END;  (•  END  CRAPHICB  »> 
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(*  SEGMENT  PROCEDURE  DUHHY  •> 


PROCEDURE  LASELATTRISUTES; 


PROCEDURE  LABELATTRllUYES 

USE:  USED  TO  SUPPORT  OPTION  ATT  WHICH  ALLOWS  THE  USER 
TO  ENTER  THE  ATTRttUTC  CHARACTERISTIC.  THE  USER 
IS  ALLOWED  TO  ENTER  ANT  STRING:  HOWEVER.  ANT 
CHARACTERISTIC  ENTERED  WITH  A  R  WILL  BE  ASSUNNED 
BT  THE  SENSITIVITY  ANALYSIS  TO  BE  RECRET  AND  WILL 
ANNOTATE  THOSE  ALTERNATIVES  WITH  THE  LOWEST  VALUES. 
CALLED  BT:  BECHENT  PROCEDURE  DUMKT 
SOUTINES  CALLED:  <*•■•) 

VARIABLES: 

USED:  COHHENTBTR INS. HAXL ABELS IZE  (•••  UNIT  DAS8A) 
MODIFIED:  LATT  (•••  UNIT  DASSA) 


BECIN 

PAGE (OUTPUT): 

WRITELN(OUTPUT. 'ENTER  ATTRIBUTE  CHARACTERISTIC  *); 
WRITE ( OUTPUT, ’ (REGRET  OR  VALUE) P  *>; 

READLNt INPUT. LATT) ; 

LATT: bCOPT( CONCATI LATT. LABELSTRING  > , I , MAI LABELS  I ZE ) ; 
END:  <•  END  LABEL  ATTRIBUTES  CHARACTERISTICS  »> 


(*  SEGMENT  PROCEDURE  DUMMY  •) 


PROCEDURE  READTITLE; 


PROCEDURE  READTITLE  • 

USE:  PROCEDURE  USED  TO  ALLOW  THE  USER  TO  ENTER  THE  TITLE  • 
Or  THE  TREE  STRUCTURE  WHICH  WILL  8E  RE-DISPLAYED  • 

IN  VARIOUS  REVIEW  TYPE  OPTIONS.  USED  TO  SUPPORT  • 

OPTION  TTl .  * 

CALLED  BY:  SECHENT  PROCEDURE  DUMMY  • 

ROUTINES  CALLED:  • 

VARtABLES:  * 

USED:  COMMENTATE INC .MAX COMMENTS! SB  (•••  UNIT  DASSA)  • 

MODIFIED:  TITLE  (•••  UNIT  DASSA)  • 

iitiHMitiurtHiittimiiHtmitiiHiHiiitiitmiHM  •  ) 

SECIN 

PACE (OUTPUT); 

VRITSIN* OUTPUT, ‘ENTER  A  TITLE  FOR  THIS  DATA  STRUCTURE  •)} 
READLNt INPUT, TITLE) ; 

TITLE:. COPY (COMCAT(TITIE.COKMENTSTRINC). I. MAECOMMENTSIIE) 
END;  (•  END  READ  TITLE  FOR  DATA  STRUCTURE  •> 


7  i 


(•  SECMENT  PROCEDURE  DUMMY  •  > 

PROCEDURE  SPAN:  <•  SPAM  •> 


PROCEDURE  SPAN 

USE:  USED  TO  SUPPORT  OPTION  BPS  AND  IN  THE  CREATION  OP  A 
NEV  TREE  STRUCTURE.  THIS  ROUTINE  TAXES  ADVANTAGE  OP 
THE  CRAPHICS  CAPABILITIES  OP  THE  APPLE  tt  MICRO- 
COMPUTER.  USINC  SUBROUTINE  CRAPHICS,  THE  USER  ENTERS 
THE  ATTRIBUTES  (NODES)  DIRECTLY  ONE  THE  SCREEN  WITHIN 
THE  WIRING  DIACRAM.  THE  PROCEDURE  WILL  UPDATE 
THE  NODE  STRUCTURE  AS  WELL  AS  GIVING  CURRENT  NUMBER 
NODES  IN  THE  SYSTEM. 

CALLED  BY:  SECMENT  PROCEDURE  DUMMY 

ROUTINES  CALLED:  UNIT  DASSA  < PRETOT. PRENEE .MEET, 

NODEARRAYTODISK, 

HASTERNODESETUP) 

SEGMENT  PROCEDURE  DUMMY  (GRAPHICS) 

VARIABLES: 

USED:  LABELSTRINC  (•••  UNIT  DASSA) 

HOD  I P I  ED :  CM .  ANSWER .  I CCNT ,  NNRN ,  I F  ADD ,  L ,  IV  UNDE  E  P , 
NNODEB, I , ISTR, IRAY.OLDCELLNUM. NODELABEL, 

(•tt  UNIT  DASSA) 

CONTROL  (stt  SECMENT  PROCEDURE  DUMMY) 

•■•■••••(••ft.  •MIIMIIIIIIIIItllMItMItlltimitUtlMM  •) 

BEGIN 

PRETOT: 

REPEAT 

BEGIN 

PACE (OUTPUT); 

WRITEt OUTPUT, 'SPAN  NODES.  .  . A( LL  S(ELECT  '); 

REPEAT  UNTIL  KEYPRESS: 

READ! INPUT, CH) 

END 

UNTIL ( (CH.’ A‘ ) OR (CH.'S1 )) ; 

IF (CH.'S' )  THEN  PRENEE: 

IPdCONTOI) 

THEN 

IECIN 

REPEAT 

IECIN 


?? 


(•  SCCnCKT  PROCEDURE  DUMMY 


PACEtOUTPUTl  i 

VR I TC < OUTRUT > ' DO  YOU  WANT  TO  BUILD  A  NEW  TREE*  CY/N) 
REPEAT  UNTIL  KEYPRESS, 

READ! INPUT. CHI 
END 

UNTIL  < <CH* ‘Y'IORICHb'N’II; 

I r  <CH-'NI 
THEN  ANSWER:* ' tIIT‘ 

ELSE 

ICG  IN 

HASTE RNODESETUP; 

I CONT: at 
END 

END, 

KNRM: 

IMITTURTLE j 

REPEAT 
EEC  IN 

IP  (ICONTOOI 
THEN 
SECIN 


(PAOO.at;  <•  l.PARCHT,  J. BROTHER  •> 
l :  •  I ; 

CONTROL ;«1; 

V I EWPORT (O/JPP.JI.l’II; 
r I LtSCREfMI SLACK I ; 

\ I EWPORT ( 0 ,J7P,9,IfI); 

REPEAT 

BEGIN 

GRAPHICS; 

CONTROL : ■CONTROL* l ; 

Jft(CCKThOLIA> OR (ANSWER."  "  >  OR<  ANSWER.  "  DOVE  ’  )  ) 
THEN 
BEGIN 

LVL  »LVl*l-I; 


n 


i 


(•  SECKEKT  PROCEDURE  DUHHY  •) 

IT (LVDK0EEP)  THEN  NDEEP.-LVL; 

NEXTs 

NNRN: 

END 

ELSE 

■ECIN 

IF  < ANSWER (> 'EXIT' ) 

THEN 

IEC1N 

ANSWER: ■COPY(CONCAT( ANSWER, LABELSTRING) , 1 , NAXLAEEL81ZE) ; 
NNRN: «NNRN+1 ; 

NNODES : aNNODES+i ; 

HO VETO ( 2,0); 

VSTRINC( 'CURRENT  NUMBER  OF  NODES:  '); 

I NNODES; 

STR( 1 , 1STR) ; 

VSTRINC(ISTR); 

IRAYC LVL, IFADD1: -NNODES; 

SEEK (NODE , t RAT CL VC « 81 ) 5 
NODEARRAYTODI 9K( LVL ) ; 

PUT (NODE); 

OLOCELLNUN:  -IRATCLVL  ,01; 

LVL : *LVL+L; 
t:-0; 

IFADD: *3 ; 

IRATCLVL, 0} : ■NNODES; 

1RAYCLVL, I ):-NNRN; 

IRAYCLVL.il :.0; 

I RAY C  LVL , 3] : >0 ; 

IRAYC  LVL , 41 : «OLDCELLNUK; 

IRAYC  LVL ,51: •OLDCELLNUM; 

ARAYCLVL.il :»0; 

ARAYCLVL.il  :.0; 

NODELABELCLVL1 : -ANSWER; 

SEEKCNODE, IRAYC LVL, 01); 

NODEARRAYTODI SK( LVL  > ; 

PUT(NODE); 


?» 


END; 


(*  SEGMENT  PROCEDURE  DUNNE  •> 


END 

END 

UNTIL ( < CONTROL >  i  > OR ( ANSWER- ' DONE • J OR ( ANSWER- • • > ORC ANSWER- ' EX IT*  »  > 
END: 

END 

UNTIL  < ( ICONT-O ) OR ( ANSWER- ' EXIT' > ) ; 

PACE (OUTPUT) i 
TEXTMODE; 

END;  END  OF  SPAN  •) 
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(•  SEGMENT  PROCEDURE  DUMMY  •> 


PROCEDURE  INITIALIZE: 


PROCEDURE  INITIALIZE  • 

USE:  CREATES  NEW  FILES  ON  THE  DISK  FOR  NAMES  ENTERED  IN  * 

RESPONSE  TO  OPTIONS  SEL  OR  NEW.  TVS  NEW  FILES  ARE  • 

CREATED:  ONE  FOR  THE  NODES,  THE  OTHER  FOR  THE  NAMES  • 

OF  THE  ALTERNATIVES.  IN  ADDITION,  CALLS  OTHER  • 

PROCEDURES  IN  THIS  SEGMENT  (LABELATTRIBUTES.  • 

READTITLE,  AND  SPAN)  TO  EXPEDITE  CREATION  OF  THE  TREE  • 
CALLED  BY:  SEGMENT  PROCEDURE  DUMMY  (SELECTFILE)  • 

ROUTINES  CALLED:  UNIT  DASSA  (MASTERNODESETUP)  • 

SECHENT  PROCEDURE  DUMMY  (LABELATTRIBUTES,  • 

READTITLE, SPAN)  • 

VARIABLES:  • 

USED:  FILEOFSYSTEMS , HAXSYSTEMS .FILENAME  (Ml  UNIT  DASSA)  • 

MODIFIED:  NODE  NODETITLE , CELLNUMBER .NRNDIC IT, DOWNLINK,  • 

CROSSLINK .BACXLINX.RELVEIGHT.CUMVEICHT.  * 

RATIONALE , 3YSTEMVALUES  (•••  UNIT  DA88A)  * 

SYSTEMS  SYSTEMNAME  (•••  UNIT  DASSA)  • 

I  (Ml  UNIT  OASSA)  > 

IIIMMtlMItttltMtltMtMIIMIIMIMttamtlMIIIItttlttttll  •  ) 


BEGIN 

WITH  SYSTEMSa  DO  SYSTEMNAME : a 'NONE ' ; 

REWRITE < SYSTEMS, FILEOFSYSTEMS) ; 

FOR  I:. I  TO  HAXSYSTEMS  00  PUT( SYSTEMS) : 

CLOSE (SYSTEMS,  LOCK): 

RE8ET( SYSTEMS, FILEOFSYSTEMS) ; 

WITH  NODEa  DO 
BEGIN 

NODETITLE: ■‘BLANK 
CELLNUMBER :.0; 

NRNDIGIT : aQ , 

DOWNLINK : aO  : 

CROSSLINK : aO : 

BACXLINK : aO ; 

RELVE I GHT : ■00 ; 

CUMVEIGHT : aC . 0 ; 

FOR  I : ai  TO  HAXSYSTEMS  DO  SYSTEMVALUESt 1 1 : .0 . 0 ; 
RATIONALE :a'NO  COMMENT' 


It 


(•  SEGMENT  PROCEDURE  DUNNY  •> 


ENDS 

REWRITE (NODE , FILENAME > ; 

TOR  I : ■ t  TO  HAINUMBEROFNODEI  DO  PUT(NODE); 
CLOSE (NODE,  LOCK); 

RESETiNODE, FILENAME); 

LABEL ATTRIBUTES; 

READTITLE; 

NASTERNODESETUP; 

SPAN 


END;  (•  END  INITIALIZE  •> 


5(»  SECKENT  PROCEDURE  DUMMY  •) 
PROCEDURE  8ELECTFILE; 

-  ! 
i 


BEGIN 

PACE (OUTPUT) i 
IF(NFLAC-l) 

THEN  BECIN 

BEEKvNODE, 0 ) ; 

GET(NODE); 

WITH  NODEa  DO 
BECIN 

RATIONAIE : ■TITLE; 

NODETITLE : ■LATT; 

CELLNUMBER: ■NNODES; 

NRNDICIT: ■NDEEP; 

DOWNLINK: »NSYS; 

CROSSLINK:. FLAG 
END; 

SLEK(NODE , 0 ) ; 

PUT(NODE) ; 

CLOSE (NODE ,  LOCK), 

CLOSE ( SYSTEMS ,  LOCK) 

END; 

I 
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(*  iitititiiiittittiiiiitMiimiiiiiiiiittmttiiuiiiitiitii 

PROCEDURE  SELECTFILE  • 

USE:  USED  TO  ELICIT  THE  NAMES  OF  THE  DISK  AND  FILE  THAT  • 
A  TREE  STRUCTURE  EXISTS  ON  OR  WILL  BE  CREATED  ON.  • 

PROCEDURE  USED  IN  SUPPORT  OF  OPTIONS  SEL  AND  NEW.  • 
TWO  FILES  ARE  CREATED  AND  HAVE  THE  LABELS  Or  • 

XXXSYS . DATA  • 

XXXNODC . DATA  • 

WHERE  XXX  REPRESENTS  THE  FIRST  THREE  CHARACTERS  • 

ENTERED  BY  THE  USER  WHEN  ASKED  FOR  A  FILE  NAME.  IN  • 
THE  CASE  THAT  THE  USER  ENTERS  LESS  THAN  THREE  • 

CHARACTERS,  THE  ENTRY  WILL  BE  LEFT  JUSTIFIED  IN  THE  • 
X  FIELD,  WITH  THE  REMAININC  X  CHARACTERS.  • 

CALLED  BY:  SEGMENT  PROCEDURE  DUMMY  • 

ROUTINES  CALLED:  UNIT  DASSA  ( NODE D1SKTO ARRAY)  • 

SECHENT  PROCEDURE  DUMMY  ( INITIALISE)  • 

VARIABLES:  t 

USED:  (noaa)  • 

MODIFIED:  NODE  NODETITLE, RATI ONALE.CELLNUMBER,  « 

NRNDICIT, DOWNLINK, CROSSLINK. BACKLINK  • 

DISKNAME , ANSWER .FILENAME ,L , I . FLAG , NFL AC,  * 

LVL.IRAY  (•••  UNIT  DASSA)  • 

iiitHxiiiotiitttMttuimtmiiiititiimittuiiitMii  i) 


I 


(•  SEGMENT  PROCEDURE  DUMMY  •) 


NFLAC:-1; 

WR 1TELNI OUTPUT. ‘ENTER. .  DISK  NAME  TO  EE  U84D‘>; 

WRITE (OUTPUT . ' < E . C .  APPLES:)  *>; 

READLNI INPUT. DISKNAHE); 

VR1TELHI OUTPUT,* PLEASE  1NBERT  '.DISKNAHE.*  ANO  DEPRESS  RETURN* > } 
READLNI INPUT, ANSWER) ; 

WRITELN< OUTPUT, ‘ENTER. . .PILE  NAME  TO  BE  ACCESSED'); 

READLNI INPUT, FILENAME); 

r I LENAME : -CONCATI F I LENAME , 'EXE* ) ; 

F I LEOFSYSTEM8 : -CONCATI 0 1 SXNAME , COPT  I F I LENAME , 1 , 3 ) , • STS . DATA ‘ ) ; 

F 1 LENAME : -CONC AT I D I SXNAME , COP? I F I LENAME ,1,3).* NODE . DATA >  > ; 

FOR  I : -0  TO  MAXARRAYSIZE  DO  FOR  L:-l  TO  MAXSYSTEH3  DO  VRAYt I ,L] : al 

FOR  I:aO  TO  MAXARRAYSIZE  DO  FOR  L:-0  TO  S  DO  IRAYt I .L] : -0 

FOR  I:aO  TO  MAXARRAYSIZE  DO  FOR  L:al  TO  Z  DO  ARAYCI,LI:-0 

WRITELNIOUTPUT, ' ICR)  OR  NEW  »  *); 

READLNI INPUT. ANSWER) ; 

IF  I  ANSWER- ‘NEW') 

THEN  INITIALIZE 

ELSE 

BEGIN 

RESETINODE, FILENAME); 

RESET! SYSTEMS, FILEOFSYSTEMS) ; 

SEEK INODE, 0 ) ; 

GETINODE); 

WITH  NODEA  DO 
BECIN 

TITLE: -RATIONALE; 

LATT: -NODETITLE; 

MNODES : -CELLNUMBER; 

NDEEP: -NRNDIGIT; 

NSYS: -DOWNLINK; 

FLAG: -CROSSLINK; 

END; 

tVt:-I; 

IRAYt 1 ,0  I : -1 ; 

SEEKINODE, IRAYt LVL, S3 > ; 

CETINODE) ; 

NODED I SKTOARRAY I LVL ) 

END 


END;  I*  END  SELECTFILE  •) 


(•  IECMENT  PROCEDURE  DUItMT  •> 


•  START  SEGMENT  PROCEDURE  DUMMY  • 

•  a 


BEGIN 

IP  (CMOa'NEV )  THEN  SELECTF ILE 
EtSE  IF ( CMDa • ATT * )  THEN  LABELATTRI BUTES 
ELSE  IF(CMD*'SELa 1  THEN  SELECTF I LE 
ELSE  IF (CMDa ' SPA 1 )  THEN  SPAN 
ELSE  IF<CMD«*TTl‘ )  THEN  READTITLE 
END; 


«»  I  ECU  ENT  PROCEDURE  WLOAP  •> 


RECHENT  PROCEDURE  WLOAD; 


SEGMENT  PROCEDURE  WLOAD  • 

USE:  THIS  SECMENT  CONTAINS  ROUTINES  VNICH  ARE  USED  • 

TO  INPUT  WEIGHTS  ANO  VALUES  INTO  THE  TREE  • 

STRUCTURE.  IN  ADDITION,  THIS  SEGMENT  CONTAINS  • 

THE  PROCEDURE  (CALC)  WHICH  PERFORMS  THE  • 

VALUATIONS  OF  THE  INTERNAL  NODES  OR  COLLAPSING  • 

THE  TREE.  • 

CALLED  SY:  PROGRAM  DABS  • 

ROUTINES  CALLED:  SEGMENT  PROCEDURE  WLOAD  (CALC, WLOADI >  * 
VARIABLES :  • 

USED:  (non*)  * 

MODIFIED:  OPT  (•••  SEGMENT  PROCEDURE  WLOADI  • 

ItlUlltHUUtUlHIOHIHIIIIKMIHnHHtmitlimi  •> 


<•  VARIABLES  USED  UNIQUELY  BY  THIS  SEGMENT  •) 

VAR 

OPT, CHI : CHAR; 

LABELI.AKS. STRING; 

SYS;  ARRAY  11.. SI  OF  STRINC; 
EXirrLAG.PPOS.J.Xl ,X,Y,K,L: INTEGER; 

VRAY1: ARRAY  Cl.. SI  OF  REAL} 

'  COLOR:  ARRAY  tl.,51  OF  SCREENCOLOR; 


<•  SEGMENT  PROCEDURE  WVLOAD  •> 


PROCEDURE  RDVi 


PROCEDURE  RDV 

USE:  THIS  PROCEDURE  ENABLES  THE  USER  TO  INSERT 

ALTERNATIVE  VALUES  (0-100)  FOR  EACH  DATA  NODE  IN 
THE  TREE  STRUCTURE.  OPTIONS  INCLUDE  INPUTTING  ALL 
THE  DATA  NODES  OR  SELECTED  NODES  AT  THE  USER'S 
DISCRETION.  THIS  PROCEDURE  USES  THREE  SUBORDINATE 
PROCEDURES  (DRAWBAR  tad  SETUP)  WHICH  ENABLE 
THIS  ROUTINE  TO  BE  INTERACTIVE  AS  WELL  AS 
DISPLAYING  OUTPUTS  USINC  THE  GRAPHICAL  NODE. 

CALLED  BY:  SECNENT  PROCEDURE  WVLOAD  (WVLOAD1 ) 

ROUTINES  CALLED:  SECKENT  PROCEDURE  WVLOAD  (DRAWBAR, 

SETUP) 

UNIT  DASSA  (NODEARRAYTODISK.NUMTOSTRINC, 
STRTOREAL) 

VARIABLES: 

USED:  TENSTRINC ,N3Y8, LVL , ISTR  (at*  UNIT  DASSA) 

AN8, COLOR, Y, SYS  (fit  SEGMENT  PROCEDURE 
WVLOAD) 

HOD I FI EO:  CK. ICONT.VRAY, ANSWER  ( •••  UNIT  DASSA) 

EE  I TF  l  AC,  PPOS ,  <) ,  X  ,  VRAY  (•••  SECNENT 
PROCEDURE  WVLOAD) 


■ 


(•  IEGNEMT  PROCEDURE  VVLOAD  •> 


PROCEDURE  DRAWBAR ( A , I . C : INTEGER J V : REAL) i 


PROCEDURE  DRAWBAR 

VSR:  UBEB  COMPUTER  GRAPHICS  TO  DRAW  COLOR  BARS 
WHOSE  KEICHTS  REPRESENTS  THE  VALUES  OP  THE 
ALTERNATIVES  THE  COLORS  ARE  DEPENDENT  ON  THE 
ALTERNATIVES:  ALTERNATIVE  I  •  0RANCE 
ALTERNATIVE  2  ■  VIOLET 
ALTERNATIVE  1  •  BLUE 
ALTERNATIVE  <  ■  GREEN 
ALTERNATIVE  3  ■  WHITE! 

THE  A.S,C  VARIABLES  CORRESPONDS  TO  THE  LOVER  LRPT 
HAND  SIDE  OF  THE  TALL  RECTANGLE,  WHERE  C  REPRESENTS 
THE  ALTERNA1VE  NUMBER.  VARIABLE  B  CORRESPONDS  TO 
VALUE  OF  THE  ALTERNATIVE  AT  THAT  NODE. 

CALLED  BY:  SECMENT  PROCEDURE  VVLOAD  (RDV. SETUP) 
ROUTINES  CALLED-  (noa»> 

VARIABLES: 

USED:  A.B.C.V  PROCEDURE  DRAWBAR) 

MODIFIED:  (n«a«) 


BEGIN 

VI EVPOHTI A*C* 13,A+(C*13)«10,8,B«30) ; 

FI LLSCREENC BLACK > ; 

VI  EVPORT!  A*C*  I  5 ,A+(C*15)*10, B , B*TRUNC( V/ 2 ) ) ; 
F ILL3CRE EK< COLOR IC*1 1 ) ; 

VIEWPORT! «,27f ,0,1*1) 

END: 


(•  SECMEKT  PROCEDURE  WVLOAD  •> 


PROCEDURE  SQUARES(A.B:  INTEGER)  j 

(•  MHIIIIttUMIItltllKIIIH 


PROCEDURE  80UARES  • 

UIE :  USED  TO  DRAV  HOLLOWED  OUT  BOXES  WHERE  DATA  • 

THE  CURRENT  VALUE  OF  A  PARTICULAR  ALTERNATIVE  AND  • 
THE  BOS  WHERE  NEW  VALUES  Ot  THAT  ALTERNATIVE  WILL  • 
BE  ENTERED.  THE  TECHNIQUE  USED  IN  CONSTRUCTING  THE  • 
BOX  IS  TO  SET  THE  VIEWPORT  TO  THE  SIZE  OF  THE  BOS.  • 
FILL  IT  WITH  THE  DESIRED  COLOR  CCREEN)  AND  THEN  • 

HOLLOW  OUT  THE  BOX  WITH  THE  BACKGROUND  COLOR  • 

(BLACK).  THE  ARGUMENTS  A  AND  B  CORRESPONDS  TO  THE  • 

LOWER  LEFT  HAND  CORNER  WHERE  THE  BOX  IS  TO  BE  • 

DRAWN .  • 

CALLED  Bf:  SECMENT  PROCEDURE  WVLOAD  (SETUP)  • 

BOirrrNES  CALLED:  (nsa«)  • 

VARIALBES:  • 

USED:  A.B  (•••  PROCEDURE  SQUARES)  « 

MODIFIED:  (bora)  t 

t*»**(i*ti»****«tt«»tt*tttttt(tttt**tt*at*t*tti**ti*t***  «> 


BEGIN 

VIEWPORTS,  A*7S.I,B*IJ>; 
FILLSCREEN(GREEN) ; 

VIEWPORT!  A*  1  ,A«73.B*l.B«m; 
FILLSCREEN(BLACK) ; 


VIEWPORTS.  I7f  .0,  III); 


A 


(*  SICKCNT  PROCEDURE  WVLOAD  •> 


PROCEDURE  SETUP; 


PROCEDURE  SETUP  • 

USE:  BETS  UP  AND  DISPLAYS  A  PATICULAR  DATA  NODE  POR  USER  ■ 
VALUE  INPUT.  PROVIDES  CURRENT  VALVES  OP  THE  • 

ALTERNATIVES.  IN  BAR  FORMAT  (USINC  PROCEDURE  * 

DRAWBAR).  ALSO  PROVIDES  DISPLAY  FOR  THE  FIRST  • 

ALTERNATIVE  AND  ITS  VALUE  IN  DECIMAL  FORM.  • 

CALLED  BY:  SEGMENT  PROCEDURE  WVLOAD  (RDV)  t 

ROUTINES  CALLED:  UNIT  DASSA  ( I NTTO STRING)  • 

SEGMENT  PROCEDURE  WVLOAD  (SQUARES.  • 

DRAWBAR)  t 

VARIABLES:  • 

USED:  MODELABEL .TENSTRINC, LVL, IRAY.NSYS  * 

(•••  UNIT  DASSA)  • 

MODIFIED:  I .ANSWER, ISTR  <■••  UNIT  DASSA)  • 

VRAY1.PPOS, COLOR  (•••  SEGMENT  PROCEDURE  * 
WVLOAD)  t 

t •#«««** t >> 


BEGIN 

ft 

COLOR  Ill: .ORANGE ;  COLOR! Z 1 : -VIOLET; 

COLOR! 3 1 : -BLUE ;  COLOR  CD : -GREEN; 

COLOR! 31 :-VHITEI ; 

FOR  I:. I  TO  NSYS  DO 
BEGIN 

S E EEC  SYSTEMS. I- 1 ) ; 

C ETC  SYSTEMS) ; 

WITH  SYSTEM  <  DO  SYS! ll : -SYSTEMNAHE 
END; 

FOR  I  :  -1  TO  3  DO  VRAYl!Il:-0; 

MOVETOC 0,111) ; 

WSTRINGC 'VALUE:  A ) SORT. B ) ACK  E)XIT  N) EXT  <ESC>'>; 
SQUARES ( 101,137); 


MOVETOC 103.133); 

VSTR 1NCC NODELABEL ! LVL I ) ; 


TO 


(*  SEGMENT  PROCEDURE  VVLOAD  •) 


MOVETOI 0, ISP) ;  VRTR1NGI 'NRN:  •>; 

ANSWER:* ' * ; 

POR  1 : *1  TO  LVl  DO 
SECtN 

INTTOSTR I NO I I R AT t I , l) ) ; 

ANSWER: *CONC AT I ANSWER. 1STR,*  • > 

END; 

VSTtlNCICOPYICONCATIANSVER.TEHSTRtNC) ,!,»>> ; 


MOVETOI IS, IIS)  ;  WSTRINCl  'OLD  VALUES1  > ; 

NO VETO I I M , 1 43  ) ;  WSTRINC< 'NEW  VALUES1); 

EOR  I : *0  TO  NSYS>1  DO 
DRAVRAR ( IE . IS . I , VRAYt LVL , !♦ 1 1 ) ; 

FOR  1 : *1  TO  NSY8~1  DO 
ORAWRARI IIS . IS , J , VRAY 1 !)♦»)>; 

NOVETOI79.4S  > ;  VSTR INC ( 'ALTERNATIVE' ) ; 

MOVETOI SO, 30> ;  W3TRINGIC0NCATI *OLD  ■ .COPYICONCATILATT, •  •>,! ,!)>> 

SQUARE? I 111,27); 

MOVETOC 3 fc  ,  1 5  > ;  WSTRINGICONCATI ’NEW  ' .COPYICONCATILATT, •  *>,l,4))) 

SQUARE SI  111,12); 

PPOS: *1 


END;  <•  END  SETUP  ■) 


I*  SEGMENT  PROCEDURE  VVLOAD  »» 


(»  MtiltlM 

t 

•  EICIM  PROCEDURE  RDV 

* 


ISC1N 

INITTURTLE, 

EE1TFLAC : «0 ; 

SETUP; 

REPEAT 

BEGIN 

VIEWPORT!! I 2,1  St, «Z,57) ;  fllLSCREEN(COlORtPPOS)); 

VI EVPORT! 0, 277 ,0 , 1  PI > ;  MOVETO!  H7,«S>  ;  VBTRINC! SYS! FPOB) > ; 

MOV  ETC  1 113,27)  ;  NUKTOSTRIKC!  VRAYCi-VL ,  PFQS2  > ; 

VSTR INC ( I STR ) ; 

MOVETO! !!S, IS);  WSTR INC! TEN3TR INC) ; 


AMS m  ’  •; 

RtPPAT  UNTIL  KEYPRESS, 

READ! INPUT, CH» ; 

ANSI I ) : *CH; 

IP ! ( POB( AH& , * ARNE ’ ) O  C i OR <  COIN) OR < ORD< CH>  *1  7 ) > 

THEN 

EASE  OADtCH)  OP 
17:  ICONT.-O; 

11.12:  BEGIN 

VRATl IPP05! : .Vfl AY I IVl , PROS ) ; 

DRAWBAR! ! II , 15 , PPOS- J , VRATl IPPOS) ) ; 

IF ! PPOS (NS YS)  THEN  PP0S:»PPO3*t 
END; 

45.17:  BEGIN 

IF  (CH-’A’J  THEN  FOR  J:»!  TO  NSYS  00  VR  AYU  3  )  :  »VR  AYUVL  ,  J  J 
FOR  <!:«!  TO  NS YS  DO  VKAYf LVL , J J : -VRATIC J I ; 
SEEK!NODE,IRAYILVL,0)); 

CET (NODE  ) ; 

SEER < NODE, 1R AY tlVL.OJ) ; 

NODE ARR ATT0D1 SR  C  LVL  >  ; 

FUT(NODE>, 
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<«  SEGMENT  PROCEDURE  VVLOAD  »> 


EXITFLAC:*! 

END; 

44;  1F(PP0B(*1>  THEN  PP0B:*l 

ELBE  PPOB: ■PP05-1 ; 

It:  I F( PPOS > *N8YS  >  THEN  PPOS:*NSYS 

ELBE  if  FOB: »PPOS*l ; 


END  (•  END  CASE  •> 


ELBE 

BECIN 

ANSWER:* 1  •; 

ANSWER tlJ :*CH; 

X:*1IS;  Y;»14;  XJ:*E; 
NOVETO(X.Y); 

WCHAR(CH) ; 

X:*X»7; 


REPEAT 
BECIN 
ANS: a  *  *; 

REPEAT 

UNTIL  KEYPRESS; 

READ(1NPUT,CH>; 

ANSI 1 ] : *CH ; 

J : *ORD( CH ) ; 

IF (NOT  EOLN) 

THEN 
BECIN 
IF(  JOB) 

THEN 

BECIN 

IF(CH* ‘  •)  THEN  CH:*’ 

VCHAR  <  CH ) ; 

ANSWER :.C0NC»r' ANSWER, ANS > ; 
X :  »X*7 
END 
ELSE 
IF (XI (X> 

THEN 

BECIN 

HOVETO( X -7 , Y ) , 

VCHAR ( ’  ’>; 


(•  SECKENT  PROCEDURE  VVLOAD  •> 


MOVETOt 1-7 , T ) ; 

ANSWER : ■ COP Y < ANSWER , 1 , ( LENCTH <  ANSWER ) - 1 ) > ; 
I:»I-7 
END; 

END; 


UNTIL  C < EOLN) OR < LENCTH < ANSWER >> -10)) ; 
VRAYltFFOS) : «STRTOREAL( ANSWER) ; 

IF  <  VRAY  tCPFOSDlOO)  THEN  VRAY1  tPPOSl  :  ■  1  00  ; 
IP  < VRAY1 1 PPOS1 < 0 )  THEN  VRAY1 IPPOSJ : -0 ; 
DRAWBAR! II 3. i 5, PP0S-1, VRAYltPPOSl) ; 

IF ( PPOS <NSYS >  THEN  PPOS : -PP08* 1 
END 

END 

UNTIL  < ( ORD<  CH) >27  >OR( El ITFLACal ) ) ; 

IF(ORD<CH)-27)  THEN  ITOTL:«0; 

FACE (OUTPUT); 

TEETNODE; 

END; 


>> 


(•  SEGMENT  PROCEDURE  WVLuAD  •> 

PROCEDURE  RDVT; 


PROCEDURE  RDVT  • 

USE:  THIS  PROCEDURE  ENABLES  THE  USER  TO  INSERT  • 

WEIGHTS  TOR  ALL  SPANS  ON  THE  NODE  IN  • 

THE  TREE  STRUCTURE.  OPTIONS  INCLUDE  INPUTTING  ALL  • 
SPANS  OR  A  SINGLE  SPAN  UNDERNEATH  A  SPECIFIED  « 

NODE .  • 

CALLED  BY:  SEGMENT  PROCEDURE  WLOAD  CWLOAD1)  • 

ROUTINES  CALLED:  SEGMENT  PROCEDURE  WLOAD  (DRAWBAR,  • 

SETUP)  • 

UNIT  DASSA  < NODE AAR ATTOD I SK, CROSS,  » 

STRTOREAL , ANSVERTOQUESTION)  • 
VARIABLES:  • 

USED:  MAXCOMNENTSIZE.NODELABELtt#*  UNIT  DASSA)  * 

MODIFIED:  QUESTION, LVL ,ARAY , I , ANSWER .NODE : RATIONALE ,  * 
1TOTL  (•••  UNIT  DASSA)  • 

LR.INT.J  (•••  PROCEDURE  RDVT)  • 

VAR 

4, INT  :  INTEGER; 

LR  :  REAL; 

BEGIN 

CROSS; 

REPEAT 

BECIN 

PAGE (OUTPUT) ; 

VRITELNtOUTPUT, *  OLD  VTS  NEW  VTS  NORMALIZED' ) ; 

FOR  I:al  TO  NCROSS  DO 
BEGIN 
J:«LVL*I; 

GOTOZY ( 0,1+1); 

WRITE (OUTPUT, NODELABEL t JI > ; 

COTOXY ( 14,1*1); 

INT: »TRUNC( 100* AR AY (4, II); 

VRITELN< OUTPUT, INT: I ) 

END; 


f  5 


LR : aO  .  0  ; 


(•  SEGMENT  PROCEDURE  WVLOAD  ■> 

TOR  1 :nt  TO  NCROSS  DO 
BEGIN 

COTOE  Y  ( 2  2 , 1  ♦  1 )  ; 

J : -LVL*I ; 

RE ADEN! I NPUT , ANSWER ) ; 

ARAYC  J .  1 1 :  -STRTOREAU  ANSWER ) ; 

IF ( ARAYt  J, 1 ] < 0  > 

THEN 

BEC1N 

ITOTL:»0; 

I: -NCROSS* 100 
END 

ItSE 

LR : -LR+ ARAYt J, 1 ] ; 

END; 

IF  ( 1 1  (NCROSS+3 )OR( LR(  > 0) ) 

THEN 

BEGIN 

FOR  1  :«1  TO  -/.ROSS  DO 
BECIN 

GOTOXY122.1*!); 

J:.LVL*I; 

ARATC J, 13 :-ARAYtJ, 1 J/LR; 

I NT: -TRUNC( 1 00* ARAYt J , 13); 

VRITEIOUTFUTf INT: * ) 

END; 

COTOET (0 , 1*2 ) ; 

QUESTION: -'ARE  THESE  WEIGHTS  OKAY?  (Y/N) 

ANSWERTQQUESTION 


UNTIL <( ANSWER- 'Y' >OR< I > NCROSS ♦ 5 >OR( IR-O) )  ; 

I F ( <  UNCROSSES ) OR <LR<  >  0  )  > 

THEN 

BEGIN 

WRITELN( OUTPUT, 'ENTER  RATIONALE  TOR  WEIGHTS'); 

WRITE IN (OUTPUT, ■ (MAE  • .MAXCOMWENTS I 2E : J , '  LETTERS)'); 

READLNf INPUT, ANSWER) ; 

WITH  NODEa  DO  RATIONALE : -COPY! CONCAT ( ANSWER , COMHENTSTR INC ) , I , 
MAE COMMENTS  I ZE ) ; 


<*  SEGMENT  PROCEDURE  WLOAD  •) 


Jr-LVL; 

FOR  I: at  TO  KCROSS  DO 
IECIN 

lVl:alVL«l; 

ARAYCLVL, 21 : aARAYCLVL  ■ 1 1 ; 
SEEK (NODE .IRAYCLVL.Ol); 
NODEARRAYTODI SKI LVL > ; 
PVT(NODE) 

INS; 


IVL.mJ 

END 


ID;  (•  END  PROCEDURE  RDVT  •) 


(•  SEGMENT  PROCETURE  WLOAD  •> 


PROCEDURE  CALC;  (•  CALCULATE!  THE  TREE  *> 


PROCEDURE  CALC 

USE:  THIS  PROCEDURE  CALCULATES  OR  'COLLAPSES'  THE  TREE  < 
BASED  ON  THE  WEIGHTS  AND  VALUES  SPECIFIED  FOR  EACH  i 
PARTICULAR  NODE  OR  SPAN.  THE  PROCEDURE  CALCULATES  ' 
THE  CUMULATIVE  WEIGHTS  FROM  THE  TOP  OF  THE  TREE 
DOWN.  IF  THE  PROCEDURE  REACHES  THE  DATA  NODE  VALUES 
ARE  ADDED  TO  THE  TOTAL  VALUE  OF  THE  TREE. 

CALLED  BT:  SEGMENT  PROCEDURE  WVLOAD 

ROUTINES  CALLED:  UNIT  DASSA  < PRETOT , NODE ARRAYTODI SK , NEXT  I 
VARIABLES: 

USED:  IRAY.NSY8. 1CONT  (•••  UNIT  DASSA) 

MODIFIED:  ARAY .NDEEP, FLAG, VRAY, I , L , LVL 

(•••  UNIT  DASSA) 

J  (•••  SEGMENT  PROCEDURE  WVLOAD) 

Z.OUITFLAC  (ill  PROCEDURE  RDWT) 

VAR 

X: REAL; 

QUITFLAC: INTEGER; 

BEGIN 

FLAG : «0 ; 

ARAYIO. 1 1 :■! ; 

ARAYI 0,2) :■! ; 

AHAYt  t.l  ):■.!; 

ARAYI t ,2) :■! ; 

PRETOT; 

J:  ; 

PACE (OUTPUT) ;  WRlTE(OUTPUT, ' CALCULATING  TREE.'); 

NDEEP :-0; 

REPEAT 

BEGIN 

IF  < ICONT  <  >0 ) 

THEN 

BEGIN 

ARAYI LVL, 2) :  .ARAYI LVL- 1 ,  2 ) » ARAYI LVL , 1) ; 

J : 1 ; 

IF ( LVDNSEEP)  THEN  NDEEP:. LVL; 

IF ( I RAY I LVL ,21)0) 

THEN 

BEGIN 

FOR  I : ■!  TO  NSYB  DO  VRAYt LVL , \ 1 : .0  ; 


FI 
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NEXT 

END 

ELSE 

IECIN 

rOR  K:al  TO  NSYS  DO 
BEGIN 

Z : -VRAYt  LVL , KI • ARATttVL . 1 )  ; 

FOR  L:  ■!  TO  (LVL-U  DO  VRAYEL.K3 .-VRAYCL.K3-Z 
END: 

IEEE (NODE, I  RAY ( LVL ,01); 

NODEARR AYTODI SK<  LVL >  j 
PUT(NODE); 

L.bLVL; 

OUITFLAG :  -1  ; 

REPEAT 

IF (IRATE LVL, SI >0) 

THEN 
BEGIN 
LVL: -Li 
NEXT: 

OUITFLAG :-t 
END 
ELSE 
BEGIN 

LVL: -LVL- li 

IF ( ARATt LVL , II < > C )  THEN  FOR  I:-I  TO  NSYS  DO 
VRAY I LVL , 1 1 : -VRAY l LVL , 1 3 / AR AY  t  LVL . Z  3  s 
SEEK (NODE, I  RAY (LVL, 0  3 ) ; 

NODEARRAYTODI SK( LVL > ; 

FUT(NODE) ; 

IF(LVL(> t ) 

THEN 

BEGIN 

LVL:-L; 

NEXT; 

QUITFLAC : -0 
END 
END 

UNTIL(QUITFLAG-O) 

END 

END; 

WRITE (OUTPUT , • . • ) 

END 

UNTIL ( ICONT-O  > 

(•  END  PROCEDURE  CALC  *) 


II 


END; 


(•  SEGMENT  PROCEDURE  WLOAD  •> 


i 


PROCEDURE  WLOAD  1 ; 


PROCEDURE  WLOAD!  • 

USE:  THIS  PROCEDURE  IS  EXECUTED  IF  LOADINC  THE  VEICHTS  * 
OR  VALUES  TOR  SPANS  OR  NODES  ARE  REQUIRED.  • 

IP  ALL  NODES  ARE  TO  BE  ASSICNED  VEICHTS  OR  VALUES  • 
THE  PROCEDURE  STARTS  FROM  THE  TOP  OF  THE  TREE  AND  » 
USING  PROCEDURE  NEXT  (UNIT  DASSA)  FINDS  ALL  THE  * 

DATA  NODES  (FOR  VALUES)  OR  NON-DATA  NODES  (FOR  • 

VEICHTS) .  • 

IP  A  SELECTED  NODE  IS  DESIRED,  PROCEDURE  PRENEI  • 
(UNIT  DASSA)  IS  EXERCISED.  • 

CALLED  BY:  SEGMENT  PROCEDURE  WLOAD  • 

ROUTINES  CALLED:  UNIT  DASSA  ( FRETOT, PRENEX ,NEXT)  • 

SEGMENT  PROCEDURE  WLOAD  (RDV.RDVT)  • 

VARIABLES:  • 

USED:  ICONT, I RAF , ITOTL  (•••  UNIT  DASSA)  ■ 

OPT  (at*  SEGMENT  PROCEDURE  WLOAD)  • 

MODIFIED:  CH  (•••  UNIT  DASSA)  * 

CHI .LABEL!  (•••  SEGMENT  PROCEDURE  WLOAD)  * 

■  iHittitiitittHHuiHtiiititmimiiitmiiiiiitiaiH  *) 

BEGIN 

REPEAT 

BEGIN 

IF(OPTa'V')  THEN  LABEL! :■ 'VEICHTS ' 

ELSE  LABEL! ^'VALUES' ; 

PACE (OUTPUT); 

VRITE (OUTPUT, LABEL 1 , ' :  A(Ll  S( ELECT  '); 

REPEAT 

UNTIL  KEYPRESS', 

READ( INPUT, CHI) 

END 

UNTIL ( ( CHI ■ ’ 8 • >OR(CHla 1  A' ) ) ; 

VRITE IN (OUTPUT) ; 

REPEAT 

BEGIN 

PRETOT; 

I F ( CH 1  • '  8 ' )  THEN  PRENEX; 

IF( ICONTaO) 

THEN 

BEGIN 

VRITELN(OUTPUT, 'NRN  ENTERED  IS  INVALID'); 
VRITELN(OUTPUT, ' (ANY  KEY)  CONTINUE'); 
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REPEAT  UNTIL  KEYPRESS; 

READ! INPUT. CM > 

END 

END 

UNTUIICONTOO); 

REPEAT 

RECIN 

IF ( ( I RAYILVt , I ]a0 ) AND ( OPT* 1 V ' ) >  THEN  RDV; 
IP( ( IRAYI LVL , I) > 0 ) AND <  OPT* 'V' ) )  THEN  RDVT; 
IP ( ITOTL»l >  THEN  NEXT 
END 

WNTI  t ( • I CONT* 0 ) CR < I TOTL < > 1> ) 

END;  <•  END  WLOADI  »J 
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* 


IECIN  SEGMENT  PROCEDURE  VVLOAD 


acciN 

REPEAT 

IECIN 

REPEAT 

IECIN 

PACE(OVTPUTJ; 

WRITE  (OUTPUT,  *WC:  V(E!CHT  V(ALUES  C(  ALCULATE  £<XIT  '); 

REPEAT 

UNTIL  KEYPRESS; 

READ( INPUT, OPT) ; 

END 

UNTIL!  (OPT*  'V'  )OR(OPT-aV)OR(OPT-*C'  >OR(OPTa  •  E 1  >  > ; 

IKOPT-'C’)  THEN  CALC 
ELSE  IT( OPT( )  *  K' )  THEN  WL0AD1 

ENO 

UNTIL (OPTa ' E ‘ > 


(•  SEGMENT  PROCEDURE  NUN  *> 


SEGMENT  PROCEDURE  NUN; 
(•  **•••*•••■«••••••*# 


SEGMENT  PROCEDURE  NUM 

USE;  THIS  SEGMENT  HOUSES  THE  PROCEDURES  WHICH  ARE 
CALLED  ON  FOR  OPTIONS  DIS,  NUM,  AND  REV. 
PROCEDURES  FOR  OPTION  DIS  PROVIDES  FOR  BOTH 
TABULAR  AND  GRAPHICAL  OUTPUT.  IN  ADDITION, 

THE  TABULAR  OUTPUT  CAN  BE  DIRECTED  TO  EITHER  THE 
CONSOLE  OR  THE  LINE  PRINTER.  PROCEDURES  FOR 
OPTIONS  NUM  ANO  REV  ARE  COMBINED  TOCETHER  BECAUSE 
OF  THEIR  SIMILAR  FORMATS  (OPTION  REV  IS  JUST  A 
SHORTENED  VERSION  OP  OPTION  NUM)  AND  CAN  RE 
DIRECTED  TO  EITHER  THE  CONSOLE  OR  THE  PRINTER. 

CALLED  RT;  PROGRAM  DASS 

ROUTINES  CALLED:  SEGMENT  PROCEDURE  NUM  (OUTDEVICE, 

NUMERtCREVIEV, DISPLAY) 

UNIT  DASSA  (NODIN. PRETOT, PRENEZ) 

VARIABLES; 

USED:  CMD, IRAY, ICONT, FLAC  <«••  UNIT  DASSA) 
MODIFIED:  CH , ANSWER  (•••  UNIT  DASSA) 

CHI  (•••  SEGMENT  PROCEDURE  NUM) 


■ 


VAR 

CK1 :CHAR; 

OUT: STRING; 

J: INTEGER; 

P : FILE  OF  CHAR; 


{•  SEGMENT  PROCEDURE  HUM  •) 


PROCEDURE  0UTDEV1CE ; 


•  PROCEDURE  OUTDEVICE  • 

•  USE:  THIS  PROCEDURE  IS  CALLED  ON  BY  OTHER  PROCEDURES  IN  • 

•  THIS  SEGMENT  IN  ORDER  TO  DETERMINE  WHICH  DEVICE  THE  * 

•  TABULAR  OUTPUT  IS  TO  GO  ON  (CONSOLE  OR  PRINTER)  • 

•  CALICO  BY:  SEGMENT  PROCEDURE  NUM  (OISPLAYO)  * 

•  ROUTINES  CALLED:  (non*)  t 

•  VARIABLES:  * 

•  USED:  F  (•••  BECMENT  PROCEDURE  NUN)  • 

•  MODIFIED:  CH  («••  UNIT  DASSA)  _  * 

****•••••«« •••••••*•*•**•*••*•••••*•«*<•••••*«•*•*••  •> 

BEGIN 

REPEAT 

BEGIN 

PAGE (OUTPUT): 

WRITE (OUTPUT, 1 C(ONSOLE  P( RINTER  •>: 

REPEAT 

UNTIL  KEYPRESS: 

READ( INPUT, CH) 

END 

UNTIL! (CH»'C' >OR(CH-'P' )) ; 
tF(CH.'P') 

THEN  REWRITE! F , ' PRINTER: * ) 

ELSE  REWRITE (F,' CONSOLE:'): 

ENO:  (•  END  OUTDEVICE  *) 
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PROCEDURE  NUMERICAL VIEW; 
(•  ■•iiiimttttiHiini 


PROCEDURE  NUMERICREVIEW 

USE:  HEIN  PROCEDURE  THAT  SUPPORT  OPTIONS  REV  AND  NUM. 

PROVIDES  OUTPUT  OATA.  NRN  AND  NODE  LABELS  IN  THE  CASE  OF 
OPTION  REV  AND  NRN,  NODE  LABELS,  CUMULATIVE  WEIGHTS, 
RELATIVE  WEIGHTS  AND  ALL  ALTERNATIVE  VALUES  IN  THE  CASE 
Or  OPTION  NUN.  REVIEWS  TO  THE  PRINTER  ASSUHE  AN  80 
COLUMN  FORMAT  WHEREAS  REVIEWS  TO  THE  CONSOLE  ASSUME  AN 
ID  COLUMN  FORMAT  WHERE  ONLY  THE  RIGHT  OR  LEFT  HALF  IS 
DISPLAYED  AT  ANY  CIVEN  TIME. 

THIS  PROCEDURE  USES  ONE  SUBORDINATE  PROCEDURE  WHICH  IS 
USED  TO  PAGE  THE  OUTPUT  TO  A  NEW  PACE  (OR  CLEAR  THE 
SCREEN  IN  THE  CASE  OF  THE  CONSOLE)  AND  PRINT  NEW  HEADINC 
INFORMATION. 

CALLED  BY:  SEGMENT  PROCEDURE  NUN 

ROUTINES  CALLED:  UNIT  DASSA  UNTTOSTR INC, NEXT) 

SECMENT  PROCEDURE  NUM  (NEWPC) 

VARIABLES: 

USED:  NSYS.CHD.LVl.lRAY.lSTR. NODELABEL. COMMENTSTRING 
ARAY.ICONT.VRAY, TITLE  (•••  UNIT  DASSA) 
HOD1PIED:  ANSWER,  I  (mi  UNIT  DASSA) 

F.CHI.J  (hi  SECMENT  PROCEDURE  NUM) 


n 


IBS 


(•  SECKENT  PROCEDURE  HUT1  «) 


PROCEDURE  NSVPC; 


PROCEDURE  NEVPC  * 

USE:  CONSTRUCTS  THE  HEADER  FOR  A  NEV  PACE  OF  OUTPUT  WHETHER  • 

THE  OUTPUT  OCCURS  ON  THE  CONSOLE  OR  THE  LINE  PRINTER.  • 
HEADER  CONSISTS  OF  LABELS  AND  A  LIST  OF  THE  • 

ALTERNATIVES  (SYSTEMS) .  • 

CALLED  BY:  SECKENT  PROCEDURE  NUK  (NUKERICREVIEU)  • 

ROUTINES  CALLED  (non*)  • 

VARIABLES :  » 

USED:  T ,'TLE , CH . NSYS , SYSTEM : SYSTEMMAKE  (•••  UNIT  DASSA)  * 
MODIFIED:  ANSWER.  I  <ff>*  UNIT  DASSA)  • 

F  (•••  SEGMENT  PROCEDURE  NUM)  * 

■ 

immiiHittHtiiKiiiuitiiitiiitmtiiiHiHimmiiiix  ■> 

BEGIN 

PACE ( F )  ; 

IF(CH-*F'  ) 

THEN  VRITELNI F ,  •  REVIEW); 

VRITELN<r. TITLE) ; 

WRITE < F , 'NODE  RET  NUMBER'  LABEL  REL  WT  CUM  WT  '); 

I F ( CHa ' P  *  > 

THEN  WRITE <F, •  •) 

ELSE  WRITE ( F , •  LABEL  '  ) ; 

SEEKI SYSTEMS , 0  > ; 

ANSWER : - • • ; 

FOR  l:.l  TO  NSYS  DO 
BEGIN 

CET( SYSTEMS); 

WITH  SYSTEMSa  DO  ANSWER : ■  CONC AT <  ANSWER, COPY! SY5TEMNAME ,1,3), '  ' 
END; 

WRITELN(F, ANSWER) ; 

WRITELNCF , '  •) 

END;  <•  END  NEWPC  •> 


(•  SECHEMT  PROCEDURE  KUH  *  ) 


•  BEGIN  PROCEDURE  NUMER1CREVIEV 


■ECtN 

CHI I  • ; 


REPEAT 


J:  *2 ; 

IFCCHDb'REV' ) 

THEN 
BEGIN 
PACEIF) ; 

VRITELNIF. TITLE) 
END 
ELSE 
■ECIN 
NEVPC, 

■1 :  ■  J+ 1 
END; 


WHILE  ( t ICONT.I)AND( ( < J < Z 3 > AND < CH. ' C ’ ) )OR( ( J< 5 7 > AND< CH» • P • >)) )  DO 
BEGIN 

ANSWER: ■ ' ' ; 

FOR  I ; ■!  TO  LVL  DO 
BEGIN 

INTTOSTRINC (IR AY 11,11); 

ANSWER :«CONCAT< ANSWER. I STR,'  ’) 

END; 

ANSWER :■ COPY ,CONCAT< ANSWER, NODELABEL I LVL I , COHMENTSTRIHG) , 1,14) ; 
WRITE (F, ANSWER); 

IF  t CND« • NUN 1 > 

THEN 

BECIN 

VR ITE  <  F , ARAYC  LVL , 1) : 7 ; 2 , ARAY  C  LVL , 1 1 : 7 : I ) ; 

IF ( CH« ' P '  ) 

THEN  WRITE  <  F , ■  ’  ) 

ELSE  WR ITE (F, NODE LABELILVLI); 

FOR  I :-I  TO  (NSYS-l )  DO 
WRITE (F , VRAYCLVl ,11:4:2); 

WRITELN(F,VRAYCLVl,NSYS):i:2> ; 


V?Vr--  *r*»***<. 


- J. 
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END 

ELSE 

VRITELN(F) ; 


NEXT 


END; 

IP ( ( ( J) al 3 ) AND ( CHa ' C ‘ ) >0R( ( J> .57 > AND(CHa • P 1 >>> 

THEN 

BEGIN 

WRITE (OUTPUT. •< ANY  KEY>  CONTINUE  <ESC>  EXIT'); 

REPEAT 

UNTIL  KEYPRESS; 

READ( INPUT, CHI); 

PACE (OUTPUT) 

END; 

UNTIL ( (ORO( CHI >.27  >OR( I CONTbO ) > ; 

IP (ORD( CHI > *27 )  THEN  CH:«CH1; 


(•  END  NUHERICREV1EW  •> 


<•  SEGMENT  PROCEDURE  NUN  *> 


PROCEDURE  DISPLAY ; 


PROCEDURE  DISPLAY 

USE :  PROCEDURE  SUPPORT  OPTION  DIS.  PROVIDES  TABULAR  OR 

GRAPHICAL  DISPLAY  UP  A  NODE  AND  ITS  IMMEDIATE  DESCEND- 
ENTS.  INCLUDED  IN  THE  DISPLAY  ARE  RELATIVE  WEIGHTS, 
CUMULATIVE  WEIGHTS.  AND  VALUES  OF  THE  ALTERNATIVES  FOR 
THE  PARENT  AND  CHILDREN. 

USES  TWO  IMMEDIATE  SUBORDINATE  PROCEDURES  (DISPLATO  AND 
DISPLAY! >  TO  PERFORM  THE  TABULAR  AND  GRAPHICAL  DISPLAY. 
CALLED  BY:  SECHENT  PROCEDURE  HUM 
ROUTINES  CALLED:  UNIT  DASSA  (CROSS) 

SECHENT  PROCEDURE  NUM  (DISPLAYO . DISPLAYZ ) 

VARIABLES: 

USED:  ICONT  <«••  UNIT  DASSA) 

MODIFIED:  CH  (■••  UNIT  DASSA) 


VAR 

I , J,K,L :  INTEGER; 


1 0  Y 


(•  SEGMENT  PROCEDURE  NUH  •> 


PROCEDURE  DI8PLAY1 ;  (*  DISPLAY  •) 

(•  imtlltllltlMtlUIMMMtltt 


PROCEDURE  DISPLAY! 

USE:  DISPLAYS,  IN  TABULAR  FORMAT,  THE  INPUTTED  NODE  AND  ALL 

IMMEDIATE  CHILDREN  OF  THE  TREE  STRUCTURE.  DATA  PROVIDED 
ARE  THE  LABELS  OF  THE  NODES,  EACH  NODE'S  CUMULATIVE 
VE1CHT,  RELATIVE  WEIGHT,  AND  VALUES  OF  EACH  ALTERNATIVE. 
A  TOTAL  IS  PRINTED  AT  THE  BOTTOM  OF  EACH  COLUMN 
REPRESENTING  THE  PARENT  NODE  INPUTTED  BY  THE  USER. 

CALLED  BY:  SEGMENT  PROCEDURE  NUM  (DISPLAYS) 

ROUTINES  CALLED:  UNIT  OASSA  < I NTTO STRING , NUMTOSTR INC) 
VARIABLES: 

USED:  I8TR,NSYB, LVL, I  RAY .NODELABEL , SYSTEM : SYSTEHNAHE , 

NCROSS.ARAY.VRAY, LABELSTRING  (•••  UNIT  DASSA) 
MODIFIED:  ANSWER  («a«  UNIT  DASSA) 

P  (•••  SEGMENT  PROCEDURE  NUM) 

I.J.X.L  (■••  PROCEDURE  DISPLAY!) 


VAR 

I.J.K.L  :  INTEGER; 

BEGIN 

PACE(F) ; 

ANSWER : - • • ; 

FOR  I :■!  TO  LVL  DO 
BEGIN 

INTTOSTRINGC IRAYC 1,1]); 

ANSWER : *CONC AT (ANSWER. I STR, '  ') 

END; 

VRITELN(F. ANSWER) ; 

WRITELNf F, NODEL ABEL C LVL) ,'-'); 

ANSWER: • '  FACTOR  '; 

FOR  I:-l  TO  NSYS  DO 
BEGIN 

SEEK( SYSTEMS, 1-1); 

CET( SYSTEMS > ; 

WITH  SYSTEMSa  DO  ANSWER : -CONCATC ANSWER, •  ' , COPY ( SYSTEMNAME , I . 5 ) > 
END; 

WRITELNCF, ANSWER) ; 

FOR  I TO  NCROSS  DO 
SECIN 
J : «LVL* I ; 

ANSWER:. COPY(CONCAT<NODELABELCJJ .LABELSTRINC) , 1.8); 

I F( 1  RAY t J , 2 )aQ  > 


(•  SECHENT  PROCEDURE  HUM  •> 


THEN  ANSWER : -CONCATI ANSWER . *  *  • 1 
ELSE  ANSWER :-CONCAT< ANSWER, •  •>; 

POR  K:.l  TO  NSYB  DO 
■ECIN 

NUNTOSTR I NC ( VR AT t J , X ]) ; 

ANSWER :-CONCAT< ANSWER, ISTR> 

END; 

WRITE LK<F, ANSWER) 

END; 

ANSWER:-1  TOTAL  •; 

FOR  I : -I  TO  NSYS  DO 
SECIN 

KVHTOSTR INC ( VR AY t  L VL ,  13  ) ; 

ANSWER: -CONCATI ANSWER. I STR) 

END; 

WRITELN IF. ANSWER) ; 

VR1TELNCF, '  *  >; 

WRITELNIF, *  FACTOR  <WT>  CUMWT*); 

FOR  I :»1  TO  NCROSS  DO 
■ECIN 
J.--LVL«I; 

ANSWER :- COPY ( CONCATINODELABEL I J I , LABELSTR INC ) , 1,8); 
IF< IRAYt J, 21-0) 

THEN  ANSWER. »CONC AT < ANSWER,**  *> 

ELSE  ANSWER :-CONCAT< ANSWER, * 

NUNTOSTR INC (ARAYCJ, 11) ; 

ANSWER : -CONCATI ANSWER , ’ ( * , COPY ( I STR ,4,3),*)'); 
NUNTOSTR INC <  ARAYC  J, 2 1 ) ; 

WR1TELN I F . ANSWER , I STR ) 

END; 

NUNTOSTR INC  <  AR AY  t  L VL , 2  3 ) ; 

WRITELN(F, *  TOTAL  *,I8TR) 

END;  (•  END  DISPLAYl  •) 


111 


<■  SEGMENT  PROCEDURE  NUM  *> 


PROCEDURE  DISPLAY! ; 


PROCEDURE  DISPLAY!  •  » 

USE:  DRAWS  THE  GRAPHICAL  REPRESENTATION  Or  OPTION  DIS  BY  * 
DRAWING  A  WIRING  DIAGRAM  WITH  THE  PARENT  NODE  * 

INPUTTED  BY  THE  USER  AT  THE  TOP  AND  ITS  CHILDREN  • 

BELOW.  BELOW  EACH  CHILD  (TO  THE  RIGHT  OF  THE  ■ 

PARENT)  IS  A  BAR-CRAPH  REPRESENTATION  OF  THE  VALUE  *  . 

OP  EACH  ALTERNATIVE  (INPUTTED  OR  COMPUTED).  t 

JUST  ABOVE  EACH  CHILD  (BELOW  FOR  THE  PARENT)  THE  • 

CUMULATIVE  WEIGHT  AND  RELATIVE  WEIGHT  (THE  RELATIVE  • 
WEICHT  IS  IN  PARENTHESES)  ARE  OUTPUTTED.  • 

THE  UPPER  LEFT  HAND  CORNER  OF  THE  GRAPHICS  OUTPUT  * 

IS  A  LECENO  INDICATING  WHICH  COLOR  (ORANGE. VIOLET,  • 

BLUE,  CREEN,  AND  WHITE! >  REPRESENTS  WHICH  ALTERNATIVE  • 
PROCEDURE  HAS  THREE  SUBORDINATE  PROCEDURES  (VTS,  * 

DRAWBLK ,  AND  SYSBLK)  WHICH  AID  IN  DRAWING  THE  WIRING  • 
DIACRAHS.  • 

■ 

HAS  SPECIAL  FLAG,  FLACI  WHICH  DETERMINES  THE  STYLE  • 

OF  VARIOUS  GRAPHICAL  OUTPUTS  * 

FLAG1  -  I  DISPLAY  CHILDREN  DATA  STYLE  • 

flag:  -  :  display  parent  data  style  ■ 

FLAG!  >  1  DISPLAY  LECEND  DATA  STYLE  * 

• 

CALLED  BY:  SEGMENT  PROCEDURE  NUM  (DISPLAY)  • 

ROUTINES  CALLED:  SEGMENT  PROCEDURES  NUM  (WTS , DRAWBLK,  • 

SYSBLX)  • 

VARIABLES:  * 

USED:  NODEL ABEL, TENSTR1NG,NCR0SS,1  RAY,  • 

LVl  ((••  UNIT  DASSA)  * 

MODIFIED:  ANSWER, CH  (»t»  UNIT  DASSA)  • 

J.I.Y, FLACZ, CONTROL  <*••  PROCEDURE  DISPLAY:)  « 


VAR 

I,Y:INTEGER; 

FLAG:, J. CONTROL: INTEGER; 


it : 


I*  SECMENT  PROCEDURE  KVH  «) 


PROCEDURE  UTS ; 

(•  litlttltttt 


PROCEDURE  V 

USE:  WRITES  OUT  THE  CUMULATIVE  WEIGHT  AND  RELATIVE  VEICHT 
(THE  RELATIVE  VEICHT  IN  PARENTHESES)  FOR  ANY  CIVEN 
NODE.  REQUIRES  AN  I  AND  V  VALUE  BE  SET  WHICH 
REPRESENTS  THE  LOVER  LEFT  SCREEN  COORDINATE  WHERE  THE 
WRITING  IS  TO  TAKE  PLACE. 

CALLED  BY:  SECMENT  PROCEDURE  NUN  (DISPLAY!) 

ROUTINES  CALLED:  UNIT  DASSA  (NUMTOSTRINC) 

VARIABLES: 

USED:  ARAY  UNIT  DASSA) 

E.Y  (Ml  PROCEDURE  DISPLAY!) 

MODIFIED:  1STR  (•••  UNIT  DASSA) 


BEGIN 

NUMTOSTR INC ( ARAYtJ ,11); 
ISTR: aCOPY ( 1STR, 3,4); 
KOVETO(X-3 , Y»1 4 ) ; 

I STR : «CONCAT< • ( • , ISTR ,  • > 1 > ; 
WSTRINC(ISTR); 

NUMTOSTR INC ( ARAY  (J ,11 ) ; 
ISTR:  a COPY!  ISTR,  3 . 4 ) ; 
HOVETO ( I  ♦  4  4  ,  Y  +  M  )  ; 

VSTR INC (ISTR) 

END;  (*  END  UTS  •) 


II! 


(•  SEGMENT  PfOCEDURE  MUM  *) 


PROCEDURE  DRAWBLK U.Y: INTEGER); 


t  PROCEDURE  DRAWBLK  • 

•  USE:  SUBORDINATE  PROCEDURE  TO  DISPUTE.  DRAWS  THE  BLOCKS  IN  • 

•  THE  WIRING  DIACRAM  WHERE  THE  LABELS  OF  THE  NODES  ARE  • 

•  PLACED.  SIMILAR  IN  FUNCTION  TO  PROCEDURE  DRAWBLK  IN  • 

•  SEGMENT  PROCEDURE  DUMMY.  • 

•  USES  TWO  ARGUMENTS  WHICH  ARE  THE  SCREEN  COORDINATES  OF  • 

•  THE  LOWER  LEFT  HANO  CORNER  OF  THE  BLOCKS  « 

•  CALLED  BY:  SECMENT  PROCEDURE  NUM  (DISPLAYS)  • 

•  ROUTINES  CALLED:  (non*)  • 

•  VARIABLES:  t 

•  USED:  X,Y  (•••  PROCEDURE  DRAWBLK)  • 

•  MODIFIED:  (non*)  • 

BEGIN 

VIEWPORT! X,X+73,Y.Y»I1>; 

PI LLSCREENC GREEN) ; 

VI EVPORT ( X* 1 ,E«73.Y*1.Y«I2); 

FILLSCREENI BLACK ) ; 

VIEWPORTS).  27*, 0. 1 9 1 ) 


(•  SEGMENT  PROCEDURE  NUN  •> 


PROCEDURE  SYSBLK C  X , t : INTEGER) ; 

it  ttttttttttttttttttttttttttt 


PROCEDURE  SYSBLK 

UBE :  DRAVB ,  IN  BAR  CRAPH  FORMAT,  THE  VAtUES  OF  THE 
ALTERNATIVES  FOR  A  SPECIFIED  CHILD  NODE  OF  THE 
INPUTTED  NODE  (SPECIFIED  BY  VARIABLE  J) . 

THE  INPUT  ARCUHENTS  ARE  THE  LOCATION  THE  LOVER  LEFT 
HAND  CORNER  WHERE  THE  FIRST  BAR  IS  TO  BE  DRAWN.  THE 
PROCEDURE  THEN  DRAWS  THE  REMAININC  BARS  (UP  TO  FOUR) 
RELATIVE  TO  THAT  COORDINATE. 

IN  ADDITION.  THE  PROCEDURE  WRITES  THE  LEGEND  WHICH 
CONSISTS  OP  COLOR  BARS  AND  THE  FIRST  FOUR  LETTERS  OF 
EACH  ALTERNATIVE  IN  THE  UPPER  RICHT  CORNER  OF  THE 
MONITOR  SCREEN. 

CALLED  BY:  SECMENT  PROCEDURE  NUN  (DISPLAY!) 

ROUTINES  CALLED:  (non*) 

VARIABLES: 

USED :  SYSTEMS : 8YSTEKNAKE , NS YS , VRAY , LVL 
<•••  UNIT  DASSA) 

X.Y.FLAG2  (■••  PROCEDURE  DISPLAY2) 

MODIFIED:  ANSWER  (•••  UNIT  DASSA) 

J  (•••  PROCEDURE  DISPLAY2 ) 

CONTROL  1 , Y 1  (•••  PROCEDURE  SYSBLK) 


VAR 

CONTROL 1 ,YI : INTEGER; 


BEGIN 

FOR  CONTROL  1:. I  TO  NSYS  DO 
BEGIN 

CASE  FLACl  OF 

I:  Y1 :. TRUNC ( VRAY U, CONTROL I )*0.  45) ; 

X;  Y1 : -TRUNC (VRAY t LVL, CONTROL 1I»0 .45); 
3:  YI : -4 5 

END;  (•  CASE  OF  FLAG2  •) 


CASE  CONTROL  1  OF 

I :  BEGIN  VI EVPORT( I ,2»10,Y-4S,Y-43*Y1);  FILLSCRECN(ORANCE)  END; 

3:  BECIN  V I EWPORT <X*15,X*25,Y-45,Y-45*Y1);  F I LLSCREEN( VIOLET)  END 
3:  BEGIN  VI EWPORT( X*30 , X*40 , Y-45 , Y-45*YI ) ;  F I LL5CREEN( SLUE )  END; 
4:  BECIN  VI CVPORT( X* 43 , *4 5 3 , Y- 45 . Y-4S» Y I ) ;  F ILL SCREEN ( GREEN)  END; 
3:  BEGIN  VIEVPORT<  X*40, 1*70, Y-45, Y-45+Y1 );  F I LLSCREENt WHITEI »  END 


l  IS 


(«  SEGMENT  PROCEDURE  MUM  • 

END;  (•  END  CASE  *) 

VIEWPORTS, 279, 0,171); 

ir  (FLAC2-3) 

THEN 

BEGIN 

SEEE<  SYSTEMS, CONTROL 1 -1 ) ; 

CET( SYSTEMS); 

WITH  SYSTEMS*  DO  ISTR: -SYSTEMNAME ; 

EON  J : >1  TO  4  DO 
BEGIN 

ANSWER: ■ COPY ( I STR , J , 1 > ; 

HOVETO( 7*< 1 5*  < CONTROL! - 1 )),171-(10*J)>; 

VSTR INC (ANSWER) 


(•  SECHENT  PROCEDURE  NUN  *> 


•  BEGIN  PROCEDURE  DISPLAY!  * 


■BCIN 

INITTUmt; 

FLAG! : ■! ; 

NOVITO ( 13,153);  VSTRINCt ' <REL  WT» • ) ; 
NOVETO ( 142,153);  WSTRINGCCUM  VT'); 


X: alOS;  Y: a I 71 ;  DRAWBLK(X,Y> ; 

ANSWER : aCOPYt  COHCAT<NODELABELt  LVL1 .TEN3TR1NC >.1,10); 
NOVITO ( 107,180);  VSTR I NG( ANSWER) ; 


FOR  CONTROL :al  TO  NCROSS  DO 
BEGIN 

J:atVl»CONTROL; 

ANSWER: aCOPY(CONCAT<NOOELABEL(J3 , TENSTRINC) ,1.1); 
IFdRAYCJ,  2  Ia0 ) 

THEN  ANSWER :.C0NCAT< ANSWER, •••>; 

CASE  CONTROL  OF 


1: 

BECIN 

X : a J ;  Y: all):  DRAWBLK(X.Y) ; 

KOVETO( 7,113);  WSTR1NC< ANSWER ; ; 

VTS; 

NOVETOU3?,  17S) ;  PENCOLOR< GREEN)  ; 

KOVETOI 137,141):  NOVETO <  37,141);  NOVETO< 3» , I U ) : 
PENCOLOR(NONE) ; 

SYSBLKC  X» 1 , Y ) ; 

END; 

2: 

BEGIN 

X  :  alOS;  DRAWBLKX  ,T) ; 

NOVETO ( 107,115);  WSTR I NG ( ANSWER ) ; 

VTS;  MOVETOn3>,  HI  >  ; 

PENCOLOR< GREEN) ;  KOVETOt 1 3» , I U ) ; 

PENCOLOR'. NONE)  ; 

SYSBLKX.Y); 

IND; 
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<•  SEGMENT  PROCEDURE  NUH  «> 


»: 

UC1N 

I:-10S;  DRAVBLK( Z ,X)i 

KOVETO (207,113);  WSTR I NC ( ANSWER ) ; 

VTS;  KOVETO! 137,141);  PENCOLOR(CREEN) ; 

KOVETO < 2SP ,141);  HOVETO< 237,124); 

PENCOtOR ( NONE ) ; 

BYSBLK(K.Y); 

END; 

4; 

BEGIN 

l:a3S;  Y:a43;  DRAVBLK(Z,T) ; 

KOVETO! 37 , 47 ) ;  WSTR1NC< ANSWER > ; 

VTS;  KOVETO ( 73,141);  PENCOLOR(CREEN) ; 

KOVETO! 73 , 31 > ;  PENCOtOR (NONE > ; 

SYSBLKd ,  Y)  ; 

END; 

3: 

BEGIN 

Z: alSS ;  DRAWBLK(Z.Y); 

KOVETO (157,47);  VSTR1NC! ANSWER) ; 

VTS;  KOVETO ( 171,141);  PENCOtOR< GREEN) ; 

HOVETO(171 ,30) ;  PENCOtORINONE ) ; 

SYSBLKtZ , Y) ; 

END; 

END;  <•  END  CASE  •) 

END;  (•  END  OP  FOR  LOOP  *) 

KOVETO! 181,105);  PENCOLOR! GREEN) > 

KOVETO! 200,1 85 ) ;  PENCOLOR(NONE ) ; 

FLAG2 : »2 ;  SYSBLK( 202 , 1 7 1 ) ;  (»  FOR  NODE  VALUES  *> 

FLAC2 : »3 ;  SYSBLK(4, 171 ) ;  («  FOR  SYSNAKES  »> 

3 : alVL ; Z :a7?;Y:atS0 ; WTS ; 

REPEAT 

UNTIL  KEYPRESS; 

READ(CH) ; 

TEZTKODE 

END;  (•  END  DISPLAYS  *) 


tfto  -/ o/iy-o 


i 


y 

X 

X 

0 


(»  SEGMENT  PROCEDURE  NUM  * ) 


PROCEDURE  DISPLAYO; 

(•  ••••••«*•*• ««»*»»». .**»«#.»««***»*. ***»*.*« 

t  * 

*  PROCEDURE  DISPLAYS  * 

*  USE:  DETERMINES  METHOD  OF  OUTPUTTING  THE  TABULAR  DISPLAY  * 

«  (CONSOLE  AND  PRINTER),  DETERMINES  THE  CHILDREN  OP  * 

*  THE  INPUTTED  NODE,  AND  PROCEEDS  TO  THE  DISPLAY!  * 

*  ROUTINE.  * 

a  CALLED  BY:  SEGMENT  PROCEDURE  NUM  (DISPLAY)  * 

*  ROUTINES  CALLED:  UNIT  DASSA  (CROSS)  * 

a  SEGMENT  PROCEDURE  NUM  (OUTDEVICE,  * 

a  DISPLAY1)  * 

«  VARIABLES:  * 

*  USED:  (non*)  * 

«  MODIFIED:  (non*)  * 

»  * 


R2CIM 

OUTDEVICE; 

CROSS; 

DISPLAY! 

SND; 

(•  END  DISPLAYO  «) 


| 


11* 


(•  SEGMENT  PROCEDURE  NUN 


BEGIN  PROCEDURE  DISPLAY 


IECIN 

1F< !  CONTO  0  > 

THEN 

■COIN 

REPEAT 

■ECIN 

PACE ( OUTPUT  > ; 

WE  ITF (OUTPUT, *T<ABUIAR  CtRAPMIC  *  >; 

REPEAT 

UNTIL  KEYPRESS; 

READ(CH) 

END 

UNTIL! (CH«*T' ) 0R<  CH« 'C  *  > ) ; 

IF(CHa 'T* ) 

THEN  DISPLAYO 

ELSE 

BEGIN 

CROSS; 

DISPLAYS ; 

CH-.a'G' 

END 

END;  (*  END  IF  •) 

END;  <•  DISPLAY  *> 


(•  SECKEKT  PROCEDURE  HUM  •> 


<  • 


BEGIN  SECMENT  PROCEDURE  NUM 


•  ) 


BEGIN 

PRETOT, 

IF ( CMD* 1 DIS ' ) 

THEN 

BECIN 

REPEAT 

BECIN 

PAGE (OUTPUT) ; 

VR ITELN< OUTPUT, 1  ENTER  NODE  TO  BE  DISPLAYED  .  '); 

NODIN, 

IF  ( ICONTOO) 

THEN 

IF  ( I r AY t LVL ,21(1) 

THEN  BECIN 

WR I TE LN( OUTPUT , ‘NODE  IS  A  DATA  NODE  AND  CANNOT  BE  DISPLAYED1) 
VH1TELN<0UTPUT, 'DEPRESS  RETURN  TO  CONTINUE1); 

READLNI INPUT, ANSWER) , 

END 

ELSE  ICONT  -ICONT 
ELSE  ICONT  -ICONT 
END 

UNTIL ( < ICONT.O)OR< I  RAY C LVL , 2 3 > . 1  > > 

END 

ELSE 

BECIN 

PRETOT; 

REPEAT  . 

BECIN 

PACE (OUTPUT) ; 

WR ITE ( OUTPUT , 1  A  <  L 1  S(ELECT'); 

REPEAT 

UNTIL  KEYPRESS; 

READ( INPUT, CH) 

END 

UNTIL! (CH.1 A* ) OR ( CH.  1  S 1 ) )  , 

.  I F ( CH- 1 S 1 ) 

THEN  BECIN 

WR I TELN< OUTPUT, 1  '), 

PRENEZ 

END; 


\ 

\ 

\ 


(*  SEGMENT  PROCEDURE  HUM  •) 


OUTDEVICE 

END; 

IF(FLAC-l) 

THEN  BEGIN 
PACE (OUTPUT); 

VRITELNIOUTPUT. ‘WARNING  .  .  *>; 

WRITE IN (OUTPUT, 'TREE  NEEDS  TO  BE  (RE)CALCULATED' > ; 
VR1TELN< OUTPUT, 'OUTPUT  VALUES  HAY  BE  INCORRECT1); 
VR1TELNI OUTPUT) ; 

VRITELN<OUTPUT, 'PRESS  ANY  KEY  TO  CONTINUE1); 
REPEAT 

UNTIL  KEYPRESS; 

READ(CHt) 

END; 


I F ( CCMD" 'NUH' ) OR<  CMD« 1  REV* ) )  THEN  NUMERI CREVIEV 
ELSE  I-F  ( CMD« 1 DIS 1  >  THEN  DISPLAY; 

CLOSE (F); 

IF  ( ( CH< > 'G 1 ) AND( ORD< CK)<>2?)> 

THEN  BEGIN 

VRITELN( OUTPUT) ; 

VRITELNt OUTPUT, 'PRESS  ANY  KEY  TO  CONTINUE'); 
REPEAT 

UNTIL  KEYPRESS; 

REAO(CH) 

END; 

END;  (•  END  SEGMENT  NUN  •) 


)  f  I . 


<•  SEGMENT  PROCEDURE  SENSITIVITY  *) 


SEGMENT  PROCEDURE  SENSITIVITY ; 


•  SEGMENT  PROCEDURE  SENSITIVITY 

•  USE:  THIS  SEGMENT  CONTROLS  ALL  THE  SENSITIVITY  ANALYSIS  THAT 

«  IS  IN  THE  DASS  PROGRAM.  THE  SECMENT  PROVIDES  FOR 

•  SENSITIVITY  ON  CUMULATIVE  WEIGHTS  (EFFECTS  TO  THE 

!  •  TREE  STRUCTURE) ,  RELATIVE  WEIGHTS  (EFFECTS  ON  A  CIVEN 

|  •  SPAN  AGAINST  THE  OVERALL  TREE  STRUCTURE,  AND  VALUE  OF 

j  «  A  SPECIFIC  ALTERNATIVE  ON  A  SPECIFIC  DATA  NODE.  THE 

'  »  SEGMENT  PROVIDES  GRAPHICAL  OUTPUT  ON  THE  MONITOR  ONLY; 

•  HOWEVER,  THE  SEGMENT  PROVIDES  TABULAR  (NUMBERS)  OUTPUT 

•  TO  EITHER  THE  CONSOLE  OR  THE  LINE  PRINTER.  THE 

•  SEGMENT  ALSO  HAS  THE  CAPABILITY  TO  PRESENT  THE  GRAPHICAL 

•  OUTPUT  IN  TWO  FORMS.  THE  FIRST  FORM  GIVES  THE  RANGE  OF 

•  THE  VALUES  OF  THE  ALTERNATIVES  AT  THE  NODE  IN  QUESTION 

•  FROM  0-100,  WHILE  THE  SECOND  GIVES  THE  RANGE  OF  VALUES 

«  OF  THE  ALTERNATIVES  AS  THE  NEAREST  20  FROM  THE  LOWEST 

■  •  AND  HIGHEST  VALUES  OVER  THE  SENSITIVITY  RANGE  UNDER 

«  CONSIDERATION. 

•  CABLED  BY:  PROGRAM  DASS 

«  ROUTINES  CALLED:  SECMENT  PROCEDURE  SENSITIVITY  (WARNING, 

«  DETERM INENODE , CALCARRAY .TABDI SPLAY , 

•  GRAPH) 

•  VARIABLES: 

•  USED:  FLAG  (st«  UNIT  OASSA) 

«  MODIFIED:  CH  (•••  UNIT  DASSA) 

•  CHI .SENS  (•••  SECMENT  PROCEDURE  SENSITIVITY) 

• 

ittttcoseiMttMiiixnittittumitittmtitiiiititiiiitttmtt  t  > 
VAR 

DELTA. W, WHIN, VMAX.WMAZl , VDELTA , M IN , MAI , X : REAL; 

SYSNUFJ,  INDX,  I ,  J,K,L:  INTEGER; 

WH0L9 :  ARRAY  C 0  .  .  1 0 , 0 .  . MAI SYSTEMS]  OF  REAL; 

SYSNAtfg, SENS: STRING; 

CHI : CHAR; 
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<«  SECKENT  PROCEDUF.E  SENSITIVITY  •> 


\ 


\ 


PROCEDURE  ANYKEY; 


PROCEDURE  ANYKEY 

USE:  SIMPLY  WRITES  OUT  A  HESSACE  TO  DEPRESS  ANY  KEY 

TO  CONTINUE  PROCESSING.  IS  CALLED  THOUCHOUT  THIS 
SECKENT. 

CALLED  BY:  SECKENT  PROCEDURE  SENSITIVITY  (SSKVALUE, 
DETERHINENODE, WARNING ) 

ROUTINES  CALLED:  (non*) 

VARIABLES 

USED:  (non*) 

MODIFIED:  CK  (m  UNIT  DASSA) 


» 


BEGIN 

WRlTEUtt OUTPUT . * < ANY  KEY)  CONTINUE*); 
REPEAT 

UNTIL  KEYPRESS; 

READ( INPUT, CH) 

END; 


<»  SEGMENT  PROCEDURE  SENSITIVITY  *) 


PROCEDURE  WARNING; 


PROCEDURE  VARNINC  * 

USE:  PRODUCES  MESSAGE  IF  VALUES,  WEIGHTS,  OR  * 

ALTERNATIVES  HAVE  BEEN  ADDED / DELETED  TO  THE  TREE  • 

STRUCTURE  AND  THE  TREE  HAS  NOT  BEEN  RECALCULATED  • 

SINCE.  • 

CALLED  BY:  SEGMENT  PROCEDURE  SENSITIVITY  • 

ROUTINES  CALLED:  SEGMENT  PROCEDURE  SENSITIVITY  (ANYKEY)  • 

VARIABLES:  * 

USED:  (non*)  * 

MODIFIED:  (non*)  • 

tttttttotiitittttmtiiitttiittittitiitiittimtiitititimi  t) 

BEGIN 

WRITELNt OUTPUT, 'WARNING  .  .  .'); 

WRITELN( OUTPUT, ‘TREE  NEEDS  TO  BE  < RE  CALCULATED' ); 

WR1TELN( OUTPUT, 'REPORTED  VALUES  MAY  BE  INCORRECT!'); 

WRITELN( OUTPUT) ; 

ANYKEY 

END; 


1 

t 


(•  SECHENT  PROCEDURE  SENSITIVITY  >) 

PROCEDURE  DETERHINENODEi 


PROCEDURE  OETERHINENODE  * 

USE:  SOLICITS  INFORMATION  FROM  THE  USER  CONCERNINC  WHAT  a 
NODE  THE  SENSITIVITY  ANALYSIS  IS  TO  TAKE  PLACE.  • 

THE  PROCEDURE  CONTAINS  SAFEGUARDS  THAT  PREVENT  • 

SENSITIVITY  ANALYSIS  SEINC  CONDUCTED  ON  NON-EXISTENT  * 
NODES  AND  NON-DATA  NODES  WHEN  VALUE  SENSITIVITY  IS  * 
TO  TAKE  PLACE.  • 

IN  ADDITION,  SOLICITS  INFORMATION  CONCERNING  THE  • 

MAXIMUM  AND  MINIMUM  LIMITS  THAT  THE  SENSITIVITY  • 

ANALYSIS  IS  TO  BE  CONDUCTED  a 

THIS  PROCEDURE  HAS  ONE  SUBORDINATE  PROCEDURE  THAT  • 
SOLICITS  INFORMATION  WHEN  VALUE  SENSITIVITY  IS  TO  • 

BE  CONDUCTED.  a 

CALLED  BY:  SEGMENT  PROCEDURE  SENSITIVITY  a 

ROUTINES  CALLED:  UNIT  DASSA  ( PRENEX , CROSS , STRTOREAL)  a 

SEGMENT  PROCEDURE  SENSITIVITY  (SENVALUE.  ■ 
ANYKEY)  a 

VARIABLES  a 

USED:  IRAY.ARAY, NODELABEL  (tat  UNIT  DASSA)  a 

SENS  SEGMENT  PROCEDURE  SENSITIVITY)  a 

MODIFIED:  LVl, 1CONT, ANSWER  (•••  UNIT  DASSA)  a 

1NDX, I, UMAX .WHIN, UMAX 1  (sat  SEGMENT  a 

PROCEDURE  SENSITIVITY)  a 

laaaaaaaaaaaaaataaaataaataaaaaaaaaaataaaaaaataaaaaaaaaaa.  a> 


Hi 


<*  SECMENT  PROCEDURE  SENSITIVITY  *> 


PROCEDURE  SENVALUE; 


PROCEDURE  SENVALUE  • 

USE:  SUBORDINATE  PROCEDURE  TO  DETERMINENODE .  THIS  PROCEDURE  * 

DISPLAYS  ALTERNATIVES  (SYSTEMS)  WHICH  ARE  AVAILABLE  • 

FOR  VALUE  SENSITIVITY  ANALYSIS  IN  ADDITION,  THE  » 

PROCEDURE  READS  IN  THE  USER'S  CHOICE  AND  DETERMINES  IF  • 

IF  THE  INPUT  VALUE  IS  INDEED  AN  EXISTING  ALTERNATIVE  * 

(SYSTEM) .  AFTER  A  CORRECT  ENTRY  IS  MADE,  THE  PROCEDURE  « 
DISPLAYS  THE  CURRENT  VALUE  OF  THE  ALTERNATIVE  (SYSTEM)  * 
AT  THE  PARTICULAR  DATA  NODE.  * 

CALLED  BY:  SEGMENT  PROCEDURE  SENSITIVITY  (DETERMINENODE)  • 

ROUTINES  CALLED:  SEGMENT  PROCEDURE  SENSITIVITY  (ANYKEY)  • 

VARIABLES:  • 

US.ED:  SYSTEMS  :SYSTEMNAME,  NSYS,  TENSTRING,  VRAY,  LVL ,  • 

MAXLABELSI ZE  (m  UNIT  DASSA)  • 

MODIFIED:  ANSWER  (ft*  UNIT  DASSA)  • 

SYSNUM , SYSNAME , I  (ft*  SEGMENT  PROCEDURE  • 

SENSITIVITY)  « 


BEGIN 

REPEAT 

BEGIN 

VRITFLMI OUTPUT) ; 

WRITELHI OUTPUT, 'SYSTEMS  AVAILABLE* ); 

FOR  I:«l  TO  NSYS  DO 
BEGIN 

SEEK! SYSTEMS. 1-1 ) ; 

CET( SYSTEMS); 

WITH  SYSTEMSa  DO  WR I TEIN( OUTPUT, *  • , SYSTEMNAME ) 

END; 

VR I TEIM( OUTPUT) ; 

WRITELM( OUTPUT, 'ENTER  SYSTEM  OF  WHICH  VALUE  IS'); 

VR ITS LW( OUTPUT, 'TO  BE  PRETURBED.  .  .'); 

READLJM  INPUT, ANSWER) ; 

ANSu5ft: « COPY (CONCAT( ANSWER, TENSTRING) , I , MAIL ABELS  I ZE ) ; 
SYSMUH:*»0; 

FOR  i :«I  TO  NSYS  DO 
BEGIN 

SEf X( SYSTEMS, I - 1 ) ; 

CET( SYSTEMS > ; 

WITH  SYSTEMSA  DO 

I ?  ( ANSVER»S YSTEMNAME )  THEN  SYSNUM:  >1; 
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(*  SEGMENT  PROCEDURE  SENSITIVITY  •> 


END; 

SYSNANE : ■ANSWER; 


IF  (SYSNVNsO ) 

THIN 

BEGIN 

VRITELNt OUTPUT, *  SYSTEM  ENTERED  NOT  VALID'); 

ANYKEY ; 

PACE (OUTPUT) 

END; 

END 

VNTIKSYSNUHOO); 

VRITELNI OUTPUT, 'CURRENT  NODE  VALUE  IS  ‘ , VRAYC LVL , SYSNUMI : S : 2) ; 


END;  (•  END  SENVALUE  •) 


(•  SEGMENT  PROCEDURE  SENSITIVITY  *) 


•  • 


*  BEGIN  PROCEDURE  DETERM  I NENODE  • 


BEGIN 

(NOS:«0; 

REPEAT 

BEGIN 

PACE (OUTPUT) ; 

WHITELN( OUTPUT, ’SENSITIVITY  ANALYSIS  FOLLOWS:* >; 

VR ITELN( OUTPUT, *NRN  FOR  WHICH  ‘.SENS,*  IS*); 

WRITELN( OUTPUT, 'TO  BE  PRETURBED'); 

PRENEZ; 

IF ( I CONTsO ) 

THEN 

VRITELN< OUTPUT, 'NODE  DOES  NOT  EZIST...') 

ELSE 

IF ( (COPY (SENS, 1 , 1 )«*V* ) AND ( I  RAY  I LVL , 2 1 ( >  0  >  > 

THEN 

BEGIN 

WR I TELN( OUTPUT, 'NODE  NOT  DATA  NODE. . . * ) ; 

1 CONT: ■# 

END, 

IF  (ICONT-O)  THEN  ANYKEY; 

END 

UNTIL ( ICONT«l ) ; 

FOR  I-l  TO  LVL  DO  WRITE(OUTPUT, IRAYE I , 1 J , '  *>; 
WRlTSLN(OUTPUT,NODELABEL:iVL3 ) ; 

I F ( COPY ( SENS ,  1 , 1 )  ■  '  C '  ) 

THEN 

VRITELN(OUTPUT, 'CURRENT  NODE  CUMWT  I S ' , ARAYC LVL , 2 J : 5 : 2 ) 
ELSE 

IF ( COPY ( SENS , 1 ,1)«'V'  ) 

THEN  SENVALUE 

ELSE 

BEGIN 

yRTTElNI OUTPUT, 'CURRENT  NODE  RELWT  IS  * , ARAYC LVL , 1 1 : S : 2 ) ; 
IMQZ : • I RAY t LVL , 1 1 ;  LVL:-LVL-1; 
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(»  SEGMENT  PROCEDURE  SENSITIVITY  •» 


CROSS 

END; 

IP  (SENS* 'VALVE ' )  THEN  WMAX: al 00 

ELSE  WMAX :  at ;  # 

REPEAT 

IEGIM 

VRITEtOUTPUT, ‘MINIMUM  ‘.SENS,*  (8  -  * . WMAE : 5 : I , ■ )  IS  »  •); 

RE ADEN ( INPUT, ANSWER 1 ; 

WHIM: aSTRTOREALC ANSWER) 

END 

UNTIK (WHIN) a0 ) AND ( < (VMIN<al . 0) AND (SENS <  > 'VALUE ' ) >0R 
( <VM!N<« 1 00 . 0) AND (SENS* 'VALUE' >)>>; 

REPEAT 

BECIN 

WRITE (OUTPUT. 'MAXIMUM  • . SENS , ' ( ' , WHIN: 5 : 1 . '  -  * .UMAX : S : 1 , • )  18  »  * 
READLNC INPUT. ANSWER) ; 

WHAX I : aSTRTOREALC ANSWER) 

END 

UNTIL ( (WMAX1 >aWMlN)AND( ( (WMAX1 <■! ■ 0) AND(SENS( > 'VALUE' > )OR 

( (WMAX 1 <al 00 . 0  > AND( SENSa ' VALUE '))>); 

WMAX : a WMAX 1 

END;  («  END  PROCEDURE  DETERMINENODE  •) 
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I*  SEGMENT  PROCEDURE  SENSITIVITY  *> 


PROCEDURE  CALCARRAY ; 

(i  *««*t •**•*«•«* ••*t<**«*t««i»«**tt*tt*t«**(tii**t**t*«t«i«**<«***t« 

•  PROCEDURE  CALCARRAY  », 

•  USE:  THIS  PROCEDURE  CALCULATES  THE  SENSITIVITY  ANALYSIS  VALUES  * 

•  FOR  ALL  OPTIONS  CURRENTLY  IN  DASS .  PLACES  THE  ANALYSIS  • 

•  VALUES  IN  THE  VHOLD  ARRAY  TO  FACILITATE  DISPLAY  IN  EITHER  * 

•  THE  GRAPHICAL  OR  TABULAR  MODE.  THE  VARIABLE  CONTROL  • 

•  DETERMINES  THE  SENSITIVITY  WHICH  IS  TO  BE  ACCOMPLISHED  * 

•  RASED  ON  USER  INPUT.  • 

•  CONTROL  .1  ...  CUMULATIVE  SENSITIVITY  * 

«  CONTROL  ml  ...  VALUE  SENSITIVITY  * 

•  CONTROL  ml  ...  RELATIVE  SENSITIVITY  * 

•  THE  ACTUAL  CALCULATIONS  OP  THE  VALUES  AS  THE  SENSITIVITY  • 

•  ANALYSIS  IS  BEING  CONDUCTED  IB  DONE  VIA  THE  CASE  • 

•  STATEMENT.  • 

•  THE  RELATIVE  VEICHT  SENSITIVITY  ANALYSIS  IS  CONDUCTED  • 

•  BY  VARYING  THE  NODE  DESIRED  OVER  THE  INPUTTED  RANGE  AND  * 

•  THE  OTHER  SIBLINGS  RECOMPUTED  TO  MAINTAIN  RELATIVE  * 

•  IMPORTANCE  AMONG  THEMSELVES  AND  COMPLEMENTING  THE  * 

•  SENSITIZED  NODE.  * 

•  CALLED  BY:  SEGMENT  PROCEDURE  SENSITIVITY  • 

•  ROUTINES  CALLED:  (non*)  • 

•  VARIABLES:  • 

«  USED:  NCROSS. IRAY , ARAY > LVL , NSYS  (*••  UNIT  DASSA)  « 

•  SENS, INDY, SYSNUM  (set  SEGMENT  PROCEDURE  SENSITIVITY)* 

•  MODIFIED:  VDELTA ,WMAE , VMIN, I , Z , VHOLD. L ,K  (•*•  SEGMENT  * 

•  PROCEDURE  SENSITIVITY)  • 

•  SUM, VTEMP.NEVSUM, CONTROL  (•••  PROCEDURE  • 

•  CALCARRAY)  • 


VAR 

VTEMP.NEVSUM, SUM : RE AL ; 
CONTROL: INTEGER; 


BEGIN 

VDELTA: ■ (VMAI-VMIN) / 1  0 ; 

IP( SENSm * CUHVT' )  THEN  CONTROL :«l 
ELSE  .  I T < BENS. 'VALUE ' )  THEN  CONTROL:ml 
ELSE  CONTROL: m3; 

IP (CONTROL. J> 

THfcN 

BECIN 


t*  SEGMENT  PROCEDURE  SENSITIVITY  «> 


SUK:-0; 

Pot  t :•!  TO  NCROSS  00 
IP < INDX< > IRAYCLVL* I . 13 ) 

THEM  SUM : »SUH* ARAYCLVlt I , 1 J 
END; 

• 

rOR  I :mO  TO  10  DO 
BEGIN 

«: -I  i 

X. »I*VDELTA+VWIN; 

VHOLDC 1 ,03 : aX; 

POR  K:>!  TO  NSYS  DO 
CASE  CONTROL  OF 

1:  VHOLDC 1,X3 :-(VRAYtLVL,X]«Z)«{(t.z)*( < VRAYC I ,K3- < VRAYCLVL. X] * 

ARAPCEVL , 2 1 1 ) / < i -ARAY t tVL , I J> ) > ; 

1:  lF(K-SYSNUN)  THEN  WHOLDl I , KJ : -VRAYC I , K3-ARAYC LVL . 23M X-VRAYCLVL  X3> 
ELSE  VK0lDIl.X3:«VRAYtl,Kl; 

1:  BECIN 

VHOLD  C I . X  3 : . VR AY  C I . X  3 - VR AY  t  LVL , X  3 • AR AY I LVL , 2  3 ; 

FOR  L:>!  TO  NCROSS  DO 
IF(INDIOL) 

THEM  ARAYim,tEl*WH0t0n',tUn"X)*VRA?tLVt*t'K,imVttVL4L.»3/SUN* 

ELSE  VHOLDC I  «K1 : -VHOLDC 1 , X3-X*VRAYCLVL*L ,X3*ARAYt LVL, 23 

END 

END  <t  end  CASES  AND  X  «> 

END; 

VRITELNC OUTPUT) 

END; 
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<•  SECHENT  PROCEDURE  SENSITIVITY 


PROCEDURE  HEADERS! I : INTEGER) ; 

(•  Hituttmtiitttiitttitii 


PROCEDURE  HEADERS 

USE:  PROVIDES  HEADINCS  TO  THE  SENSITIVITY  ANALYSIS  WHEN 
TARULAR1ZED  RESULTS  ARE  REQUESTED  THESE  HEADINCS 
STATE  THE  TYPE  OP  SENSITIVITY  (INCLUDING  ALTERNATIVE 
IP  VALUE  SENSITIVITY  IS  BEING  DONE)  AND  THE  NODE 
REFERENCE  NUMBER  (NRN) . 

CALLED  BY:  SEGMENT  PROCEDURE  SENSITIVITY  (TABDISPLAY, 

GRAPH) 

ROUTINES  CALLED:  DASSA  < INTTOSTRING) 

VARIABLES: 

USED:  LVL. I STR.IRAY, NODELABEL  (■••  UNIT  DASSA) 

SENS < 1ND1  (*••  SEGMENT  PROCEDURE  SENSITIVITY) 
MODIFIED:  ANSWER  (*••  UNIT  DASSA) 

I  ( it#  SECHENT  PROCEDURE  SENSITIVITY) 


* 


BECIN 

ANSWER:-"  ; 

CASE  I  OF 

I:  BECIN 

IF1BENS- 'VALUE ' )  THEN  ANSWER : -CONCAT( •  (  ’ , SYSNAME , * > ‘ ; 
ANSWER :-CONOAT( SENS, ANSWER, *  SENSITIVITY  ANALYSIS’); 
END; 

2:  BECIN 

ANSWER: -CONCATI ‘FOR  ' , MODEL ABEL t LVL+ INDX ) , '  NRN:  ’>; 
FOR  t:-I  TO  LVL  DO 
BECIN 

INTTOSTRINC( IRAYCI.il); 

ANSWER : -CONC AT (ANSWER, I STR,’  •> 

END; 

!F(  INOXOO) 

THEN 

BEGIN 

INTTOSTRING! I  RAY C LVL* INDY ,11); 

ANSWER :.CONCAT( ANSWER. I STR,'  ') 

END; 

END 

END  (•  END  CASE  •) 

END;  (*  END  PROCEDURE  HEADERS  •> 


(•  8ECHENT  PROCEDURE  SENSITIVITY 


PROCEDURE  TABDISPLAY; 

<•  mtiiHiinttitti 


PROCEDURE  TABDISPLAY 

USE:  SOLICITS  WHETHER  THE  SENSITIVITY  ANALYSIS  IS  TO  BE 
OUTPUTTED  ON  THE  CONSOLE  OR  THE  LINE  PRINTER.  THE 
PROCEDURE  THEN  PRINTS  UP  APPROPRIATE  HEADERS  AND  LISTS 
NUMERICALLY  THE  RESULTS  OF  THE  SENSITIVITY  WITH  THE 
SENSITIVITY  VALUES  DOWN  THE  ROWS  AND  THE  OVERALL  VALUES 
FOR  EACH  ALTERNATIVE  (SYSTEM)  ACROSS  THE  COLUMNS. 

AN  ASTERISK  <»)  IS  PRINTED  BY  THE  ALTERNATIVE  WHICH  HAS 
THE  LOWEST  VALUE  IF  THE  ATTRIBUTE  CHARACTERISTIC  UNDER 
OPTION  ATT  STARTS  WITH  AN  R.  AN  ASTERISK  (*)  IS  PRI’.TED 
BY  THE  ALTERNATIVE  WHICH  HAS  THE  HICHEST  VALUE  IF  THE 
ATTRIBUTE  CHARACTERISTIC  UNDER  OPTION  ATT  STARTS  WITH 
ANYTHING  BUT  AN  R. 

CALLED  BY:  SEGMENT  PROCEDURE  SENSITIVITY 

ROUTINES  CALLED:  SECMENT  PROCEDURE  SENSITIVITY  (ANYKEY) 

VARIABLES: 

USED:  LATT.NSYS, SYSTEMS :SYSTEMNAME  (>••  UNIT  DASSA) 

SENS , WHOLD  (•••  SEGMENT  PROCEDURE  SENSITIVITY) 
MODIFIED:  ANSWER, CH  («••  UNIT  DASSA) 

X,I  (•••  SEGMENT  PROCEDURE  SENSITIVITY) 
F.A.W.STAR  (■••  PROCEDURE  TABDISPLAY) 


F: FILE  OF  CHAR; 

A:STRINC; 

V: REAL; 

STAR: INTEGER; 

BECIN 

REPEAT 

BECIN 

PAGE (OUTPUT) ; 

WRITE (OUTPUT, ’TABULAR:  C(ONSOLE  P(RINTER’); 
REPEAT 

UNTIL  KEYPRESS; 

READ! INPUT. CH) 

END 

UNTIL <(CH»’C’ )OR ( CHa • P •  )); 

IF (CHa ' P • ) 

THEN  REWRITE(F, ’PRINTER: ’) 

ELSE  REWRITES,  ’CONSOLE:’); 


(»  SEGMENT  PROCEDURE  SENSITIVITY  »> 

A : sCOPY (  LATT .1.1): 

PACE(F) : 

HEADERS! 1 ) ;  VRITELN! F , ANSWER) ; 

HEADERS! 2) ;  VRITELN! F , ANSWER) ;  , 

ANSWER :aCONCAT( SENS. • :  • >i 
FOR  I :»I  TO  NSYS  DO 
BEGIN 

SEEK (SYSTEMS, I -11; 

GET! SYSTEMS) ; 

WITH  SYSTEMSa  DO  ANSWER : -CONCAT! ANSWER, COPY ( SYSTEMNAME . 1 , i >, *  '); 
END; 

VRITELN! F, ANSWER) ; 

VRITELN(F) ; 

FOR  I:aO  TO  10  DO 
BEGIN 

IF (Aa  R* )  THEN  W:-1000 
ELSE  V:  aO ; 

STAR:-0; 

FOR  K : a  1  TO  NSYS  DO 
IF<  < (WHO CD 1 1 , K) )V) AND! A! > 1 R ' ) )0R 
( (VHOLDC I ,K) !V)AND( Aa 'R' ) ) ) 

THEN  BEGIN  STAR: aK;  W: aVHOLDi 1 , K1  END; 

WRITE (F .VHOLDC 1,01:4:2,'  •); 

FOR  K-.al  TO  NSYS  DO 
IF(KaSTAR) 

THEN  WRITE ( F .VHOLDC I ,KI : 4 : 1 ,*•’ ) 

ELSE  VRITECF, VHOLDC I ,K) : E : 1 ,  1  '); 

VRITELN! F); 

END; 

mCHa'C1) 

THEM 

BEGIN 

VRITELN(F) ; 

ANYKEY 

END; 


(•  SEGMENT  PROCEDURE  SENSITIVITY  •* 


<•  SEGMENT  PROCEDURE  SENSITIVITY  •) 


PROCEDURE  CRAPHHEADER; 


PROCEDURE  CRAPHHEADER 

USE:  SUBORDINATE  PROCEDURE  TO  PROCEDURE  CRAFH .  THIS 

PROCEDURE  PRINTS  THE  VALUES  Or  THE  LINES  OF  THE 
CRAPH  WHICH  IS  OUTPUTTED  IN  THE  GRAPHICS  NODE. 
PROCEDURE  WRITES  OUT  THE  VALUES  OF  THE  X-AXIS. 
CALLED  BY:  SEGMENT  PROCEDURE  SENSITIVITY  (GRAPH) 

ROUTINES  CALLED:  UNIT  DASSA  (NUMTOSTRING) 

VARIABLES: 

USED:  CH.NSYS  <■••  UNIT  DASSA) 

WHOLD  (m  SEGMENT  PROCEDURE  SENSITIVITY) 
MODIFIED:  ANSWER  (•••  UNIT  D*SSA) 

MIN. MAX, I ,X, DELTA, X  (■••  SEGMENT  PROCEDURE 
SENSITIVITY) 


BEGIN 

HIN:a 1 00 ;  MAX:.0; 

IF( CH. ' E 1  ) 

THEN 

BEGIN 

FOR  I :«0  TO  10  DO 
FOR  K : •!  TO  NSYS  DO 
BEGIN 

IF (MIN)WHOLDt I , K] >  THEN  MIN: -WHOLDC I ,K) ; 

IF (MAX (WHOLD C I ,K] )  THEN  MAX : -WHOLDI I , X) 

ENO 

END 

ELSE 

BEGIN 

.HIN-0;  MAX:- 100; 

END; 

MIN: .TRUNC(M1N/ 2  0 ) *  20 ;  MAX:.TRUNC( (MAX* l 7 ) 1 10 > *20 ; 

ANSWER:.";  DELTA :.  (MAX-MIN)  /  3  ; 

TOR  I:>0  TO  3  DO 
BEGIN 

X :  .1 ;  X : .MIN  +  X 'DELTA ; 

NUMTOSTRING! X) ;  ANSWER : «CONCAT( ANSWER , •  • , COPY ( ISTR , I , 3 ) > 

ENO; 

PENCOLOR(NONE) ;  MOVETO! 21 , 1 01 ) ;  WSTRING ( ANSWER ) ; 

END;  (*  END  CRAPHHEADER  «> 
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(•  BECNENT  PROCEDURE  SENSITIVITY  *' 


•  • 

•  BEGIN  PROCEDURE  GRAPH  * 

•  a 
*•*••*•••••****•***••••*••***•••••**••****• '■••••**■***  *) 


BEGIN 

COLOR! 11 : .ORANGE ;  COLOR! 11 : .VIOLET; 

COLOR! 11:. BLUE;  COLOR  Ml : .GREEN; 

COLORt SI: .WHITE! ; 

REPEAT 

BEGIN 

P ACE < OUTPUT >; 

WRITE  (OUTPUT, ‘CP.APHIC:  N(ORMAL  EXPANDED  *)j 
REPEAT 

UNTIL  KEYPRESS; 

READ! INPUT, CH) 

END 

UNTIL! (CM. 'N* )OR( CH. 'E • ) > ; 

INITTURTLE; 

(•  PRINT  THE  COLOR  BARS  DEPICTING  ALTERNATIVES  • 

•  IN  UPPER  LEFT  HAND  CORNER  a> 

FOR  I :-l  TO  NSYS  DO 
BEGIN 

8EEK(SYSTEM8, 1-1 )  ;  GET < SYSTEMS » ; 

CASE  I  OF 

I:  BEGIN  VIEWPORTS, 74, 174,  191);  FI  LLSCREEN1 ORANCE > ; 

MOVCTO  (2,179);  WITH  SYSTEMS*  DO  VSTRING ( SYSTEMNAME )  END; 
»:  BEGIN  VIEWPORTS. 74 , Ml , 175) ;  FILLSCREEN(VIOLET) ; 

KOVETO  <2,140;  WITH  SYSTEMS*  DO  WSTRING  (SYSTEMNAME)  END; 
I:  BEGIN  VIEWPORT<77, 153, 174 , 171 > ;  F I LLSCREEN( BLUE > ; 

KOVETO  (71,177);  WITH  SYSTEMS*  DO  VSTR INC < SYSTEMNAME )  END; 
<:  BEGIN  V1EWP0RT<77, 113,141,175);  FILLSCREEN (GREEN) ; 

MOVETO  <71,140;  WITH  SYSTEMS*  DO  WSTRINC  <  SYSTEMNAME )  END; 
S’  5L5IN  VIEWPORTUSI, 231, 174,171);  FI LLSCREENIWHITE1 ) ; 

KOVETO  (140,179);  WITH  SYSTEMS*  DO  VSTR INC (SYSTEMNAME )  END 

END  (■  END  CASES  •)  . 

END; 

VI  EVPORT (0,279  191); 

<•  DRAW  THE  GRAPH  •) 
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(»  BECMENT  PROCEDURE  SENSITl VITT  «> 


J:«4j  l  .••70 ; 

MOVETOd  »J>  ; 

TOR  K: •!  TO  3  DO 
BEGIN 

PENCOLOR (WHITE  > ; 

MO VETO U . J4I00) ; 
HOVETOII*40,J*100>; 

MOVETO( 1*40, J) ; 

IF  I Kl >  3 )  THEN  MOVETO(UIO,J>i 

I : 

END; 

I:-70; 

FOR  K:-l  TO  1  DO 
BBC  IN 

MOVITOd  ,  J)  ; 

MOVETO(I.J*20>; 

MOVETOi 1*200, J*20); 

IF(X( > 3)  THEN  NOVETO (  1*200, J*40); 
J: »J*40 
END; 


(•  NUMBER  THE  X-AXIS  •) 

CRAPHHEADER; 

(•  LABEL  THE  GRAPH  AXIS  *> 

MOVETO (1(7,120);  VBTRING( 1  VALUE 'J ; 

J: -72  ; 

FOR  I : «0  TO  4  DO 
BEGIN 

HOVETOI 1 2 , J-I *  1 1 > j 
WSTRINCI COPY (SENS, 1*1,1)) 

EHO; 

(«  WRITE  THE  NUMERIC  VALUES  ON  THE  V  AXIS  »> 

I  ;-0j 
REPEAT 
BEGIN 

KUMTOSTRIHGIVHOLDt 1,0)) ; 

MOVETOI 23, 101-1*10  > ; 

WSTRINCI 1 3TR)  ; 

I  :a!*2 


137 


(•  SEGMENT  PROCSCURE  SENSITIVITY  » 


UNTIL! I> It)  i 

<•  WRITE  OUT  SENSITIVITY  HEADINGS  •) 

HEADERS!  1  > ;  MOVETOI 0 . 1 4 1 > ;  VSTR1NC! ANSWER) ; 
HEADERS! 2) ;  MOVETO! 0 . 1 30 > ;  WSTR l NC < ANSWER) ; 

(•  DRAW  THE  LINES  ON  THE  GRAPH  •) 

rOR  I :•!  TO  N8YS  DO 
BEGIN 
Jt:.104; 

I:v200/(KAZ-H1N); 
rOR  J :>Q  TO  10  DO 
BEGIN 

tl-.-TRUNC<!WKOLDtJ.n-KIN)«X>*70; 

ir  <j>a) 

THEN  PENCOLOR!NONE) 

ELSE  PENCOLOR ( COLOR t I I ) ; 
KOVETOUl.Jl); 

J1:»JI-10 

END 

END; 

REPEAT 

UNTIL  KEYPRESS; 

READ! INPUT. CK) ; 

TEXTht'DE 

END;  (•  END  GRAPH  *> 
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(•  SEGMENT  PROCEDURE  SENSITIVITY  »* 


•  SEGIN  SEGMENT  PROCEDURE  SENSITIVITY  » 

•  • 
••**••*••**•••****••****•*•••**•*•••*•***•  «•»*»»•  •> 

■ECIN 

IF(fLAG-l)  THEN  WARNING; 

REPEAT 

■ECIN 

PACE < OUTPUT > ; 

WRITECOUTPUT, 'SENSITIVITY:  CIUMVT  RIELWT  VIALUE  E)EIT  •); 

REPEAT 

UNTIL  KEYPRESS; 

READ! INPUT, CH) 

END 

UNTIL! (Cria'C >OR(CH»'R' )OR(CH«'V' >OR( CH- • E •  > > ; 

IF(CH(>  ’£'  ) 

THEN 

BEGIN 

IF (CH- 1 C 1 >  THEN  SENS : - ‘ CUKVT* 

ELSE  IF(CH«*R* )  THEN  SENS : - ’RELVT* 

ELSE  SENS; -• VALUE 1 ; 

DETERHINENODE; 

CALCARRAY; 

REPEAT 

BECIN 

PAGE (OUTPUT); 

VRITE (OUTPU~.  SENS  ,  '  :  T) ABULAR  ORAPHICAL  E)XIT  ■>; 
REPEAT 

UNTIL  KEYPRESS; 

READ! INPUT. CHI); 

If ( CH 1- ‘ T' ) THEN  TABDISPLAY 

ELSE  IF(CHl-'G')  THEN  GRAPH; 

END 

UNTIL (CHI- ' E '  > 


END;  (•  END  SEGMENT  SENSITIVITY  *) 


(■  SECMENT  PROCEDURE  EEADSySTEMLABELS 


SEGMENT  PROCEDURE  READSYSTEMLABELS; 


BECHENT  PROCEDURE  SYSTEMLABELS  » 

USE:  THIS  SEGMENT  CONTROLS  THE  NUMBER  AND  LABELS  OF  THE  • 
ALTERNATIVES  USED  IN  THE  DASS  PROGRAM.  FUNCTIONS  * 

ARE  ACCOMPLISHED  B¥  THIS  SEGMENT  IS  THE  ADDITION.  • 

DELETION,  AND  CREATION  OF  ALTERNATIVES.  THERE  ARE  • 

THREE  SUBORDINATE  PROCEDURES  WHICH  SUPPORT  THIS  ■ 

SEGMENT.  • 

CALLED  BV:  PROCRAM  DASS  • 

ROUTINES  CALLED:  UNIT  DASSA  (NODEDI SKTOARRAY)  • 

SEGMENT  PROCEDURE  SYSTEMLABELS  (NEW,  • 

DELSYS, AODSYS)  t 

VARIABLES:  • 

USED:  NODE  (■#•  UNIT  DASSA)  • 

MODIFIED:  CH.LVL  Im  UNIT  DASSA)  • 

iiimtttimiumtmiiMtitMtHiiitiiHiitmuiittii  •> 


HI 


(*  SEGMENT  PROCEDURE  RE ADS YSTEML ABELS 

PROCEDURE  NEW; 


PROCEDURE  NEV 

USE:  THIS  PROCEDURE  SOLICITS  NAMES  FOR  ALTERNATIVES 

(SYSTEMS).  THIS  ROUTINE  IS  NORMALLY  SELECTED  WHEN 
A  NEV  TREE  IS  CONSTRUCTED  AND  A  LIST  OF  ALTERNATIVES 
IS  DESIRED  TO  BE  ENTERED. 

THIS  PROCEDURE  CAN  BE  USED  ANYTIME  DURING  THE 
THE  COURSE  OF  THE  PROGRAM.  DATA  IN  THE  TREE  WILL 
NOT  BE  LOST  IF  THE  NUMBER  OF  LABELS  ENTERED  ARE  THE 
SAME  OF  THE  NUMBER  OF  LABELS  0?  THE  ALTERNATIVES 
(SYSTEMS)  IN  THE  ORICINAL  STRUCTURE.  IF  FEVER 
LABELS  ARE  USED,  ONLY  THE  DATA  FOR  THE  LABELS  ENTERED 
VILL  BE  ACCESSIBLE. 

CALLED  BY:  SECMENT  PROCEDURE  READSYSTEMLABELS 
ROUTINES  CALLED:  (non*) 

VARIABLES: 

USED:  LABELSTRING  (*••  UNIT  DASSA) 

MODIFIED:  NSYS , SYSTEMS : STSTEMNAME  (hi  UNIT  DASSA) 
SYSLABEL  (•••  PROCEDURE  NEV) 


VAR 

SYSLABEL  :  STRING; 

BEGIN 

PAGE (OUTPUT); 

NSYS: ■! ; 

REPEAT 

VRITE<OUTPUT, ’ENTER. .  SYSTEM  ’.NSYS,’  LABEL?  *); 
REA01N( INPUT, SYSLABEL ) ; 

IF ( (SYSLABEL( ) 1  DONE ' ) AND ( SYSLABEL ( > ' ' ) > 

THEN 

BEGIN 

SYSLABEL : «COPY (CONCATt SYS LABEL, LABEL STRING ) , 1,10); 
SEEK ( SYSTEMS , NSYS- i ) ; 

VITH  SYSTEMSa  DO  SYSTEMNAME : -SYSLABEL ; 

PUT(SYSTEMS) ; 

NSYS : ■NSYS* I ; 

I F (NSYS > S )  THEN  SYSLABEL  ; 

END 


(•  SECMENT  PROCEDURE  RE ADS YSTEHL ABELS  •> 


ELBE 

IF  (NSYSal) 

THEM  VRITELNI OUTPUT, 'SORRY. . .YOU  HUST  ENTER  AT  LEAST  ONE  SYSTEM'); 

# 

UNTIL ( ( (SYSLABELa 1  DONE ‘ ) OR<  SYSLABELa 1 ' > ) ANDINSYS >  1  >  >  ; 

N8YS: aNSYS-1 ; 

WR ITELN< OUTPUT, ‘NUM  OF  SYS  • ,NSYS> 

END;  (•  END  NEV  •> 


IM 


I*  BE GHENT  PROCEDURE  R E ADS YSTEML ABELS  »' 


PROCEDURE  DELSYS, 

(t  iitiuutnttt 


PROCEDURE  DELSVS 

USE:  DELETES  USER  SPECIFIED  ALTERNATIVE  (SYSTEM)  AND 

REMOVES  THE  LABEL  AND  ALL  INFORMATION  REGARDING  THE 
ALTERNATIVE  (SYSTEM)  FROM  THE  TREE  STRUCTURE. 

CALLED  BY:  SEGMENT  PROCEDURE  READSYSTEHLABELS 
ROUTINES  CALLED:  (non*) 

VARIABLES: 

USED:  TENSTR INC. MAXL ABELS I ZE, MAYS YSTEMS,NNODZS 
(•••  UNIT  DASSA) 

MODI FI "0:  NODE : SYSTEHVALUE , SYSTEM : SYSTEMNAME . 

KSYS, 1, ANSWER, ISTR.L  (•••  UNIT  DASSA) 
SYS.J  («••  PROCEDURE  DELSYS) 


t 


VAR 

SYS:ARRAY  C 1 . .MAZSYSTEMS1  OF  STR1NC; 

J: INTEGER; 

BECIN 

PACE (OUTPUT); 

VRITELNC OUTPUT, 'CURRENT  SYSTEMS.  . 

SEEK< SYSTEMS. «> ; 

FOR  I:  ill  TO  NSYS  00 
BECIN 

CET(SYSTEHS); 

WITH  SYSTEMSA  DO 
BEGIN 

SYS 1 1 1 : ■SYSTEMNAME ; 

VRITELN( OUTPUT, SYSTEMNAME) 

END 

END; 

VRITELNt OUTPUT, ‘ENTER  SYSTEM  TO  BE  DELETED  *>; 

READLN( INPUT, ANSWER ) ; 

ANSWER : a COPY ( CONCAT( ANSWER, TENSTR INC) , I , MAZLABELS I ZE ) ; 
I STR : » ' * ; 

FOR  I : al  TO  NSYS  DO 
IF(SYSt I laANSVER) 

THEN  BECIN 
ISTR: -ANSWER; 

L:  >1 
END; 

IFdSTR.”  ) 

THEN  WRITELN(OUTPUT, ’SYSTEM  NOT  FOUND’ > 

ELSE 


MS 


(■  SECKENT  PROCEDURE  FE ADS YSTEHl ABELS  • 


IIC  IN 

ICR  t:-L  TO  (HAISYSTEMS-l)  DO 
IECIN 

IKEK( STSTEHSi  I ) ; 

CET<  SYSTEMS ) ; 

SEEK  SYSTEMS,  1-1  > ; 

PUT (SYSTEMS) ; 

WITH  STSTEMSa  DO  SYSTEMNAME : ■ 1  NONE ' ; 
PUT< SYSTEMS); 

END; 

YOR  I :«t  TO  NNODES  DO 
IECIN 

SEEKNODE, I  > ;  CET(NODE) ; 

WITH  NODEa  DO 

YOR  J:«L  TO  (HAISYSTEMS-I )  DO 
IECIN 

SYSTEHVALUEI J] : .SYSTEHVALUEI J+ I ) ; 

SYSTEHVALUEI J«1 ) : .0 

END; 

SEEKNODE,  I  )  ;  PUT  (NODE) 

END; 

NSYS : aNSYS-t 
END 
END; 


Hi 


<*  SEGMENT  PROCEDURE  RE ADS YSTEML ABELS  *) 


PROCEDURE  ADDSYS; 


PROCEDURE  ADDSYS  • 

USE:  ADDS  AN  ALTERNATIVE  (SYSTEM)  LABEL  TO  THE  TREE  • 

STRUCTURE.  CHECXS  TO  MAKE  SURE  THAT  NO  MORE  THAN  ■ 

THE  MAXIMUM  NUMBER  OE  SYSTEMS  CAN  BE  ADDED  TO  THE  < 

STRUCTURE  AND  PROVIDES  A  MESSAGE  TO  INSERT  VALUES  • 

FOR  THE  NEW  ALTERNATIVE  (SYSTEH) .  • 

CALLED  BY:  SEGMENT  PROCEDURE  REAOSYSTEMLAEELS  * 

ROUTINES  CALLED:  (nona)  .* 

VARIABLES:  • 

USED:  MAXBYSTEKS .TENSTR INC .MAX LABELS 12E  Uaa  UNIT  • 

DASSA)  • 

MODIFIED:  NSYS. FLAG , ANSWER , SYSTEMS : 8YSTEMNAHE  Uaa  • 

UNIT  DASSA)  * 

laaaaaaaaataataataaaaaaataataaataaaataaaaaaaaaaaaaataaaa  *> 


BEGIN 

WR I TE INC OUTPUT, •  •); 

I P  C MS YS-M AX  SYSTEMS ) 

THEN  WRITELHCOUTPUT, ‘MAX  NUMBER  OF  SYSTEMS  EXCEEDED* > 

ELSE 

BEGIN 

NBYB: -NSYStl ; 

BEEKt SYSTEMS .NSYS- 1 ) ; 

PAGE (OUTPUT) i 

WRITELNC OUTPUT, 'ADDINC  SYSTEM*); 

WRITECOUTPUT, ’LABEL)  •>; 

WITH  SYSTEMS*  DO 
BEGIN 

READLNI INPUT. ANSWER) ; 

SYSTEMNAME : -COPY ( CONCATC  ANSWER .TENSTRING ) , l .MAIL ABELSI XE  > 
END; 

PUTC SYSTEMS); 

VRITELNC OUTPUT. 'USE  VVC  FOR  ENTERING  VALUES  AND*); 

WRITELNC OUTPUT, 'RECALCULATING  TREE*  > ; 

FLAG: -I ; 

END 

END; 


It) 


(*  SECNENT  PROCEDURE  READSYSTEMLABEIS 


t 

•  BEGIN  SEGMENT  PROCEDURE  READSYSTEMLABEIS 

* 


t 


BEGIN 

REPEAT 

BEGIN 

PAGE! OUTPUT); 

WRITE (OUTPUT. 'A<DD  DCELETE  N(EV  E<XIT*>; 
REPEAT 

UNTIL  KEYPRESS; 

READ < CHI ; 

IPICH-'N’ )  THEN  NEW 

ELSE  IF<CH-‘D‘)  THEN  DELSYB 

ELSE  IF ( CHa ' A' )  THEN  ADDSYS; 

LVL:-1; 

SEEK(NOOE.l); 

CET(NODE); 

NODED I SKTOARR A Y ( L VL ) 

END 

UNTIL (CHa ■ E  * ) ; 

VRITELH( OUTPUT , *  •) 


END; 


IM 
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I*  SEGMENT  PROCEDURE  HODPRU  •> 


SEGMENT  PROCEDURE  HODPRU; 


SECHENT  PROCEDURE  HODPRU  « 

USE;  THIS  SECHENT  SUPPORTS  OPTIONS  HOD  AND  PRU  (MODIFY  THE  TREE  * 
STRUCTURE  AND  PRUNE  THE  TREE  STRUCTURE,  RESPECTIVELY).  • 

PROCEDURE  MODIFY  HAS  NO  SUBORDINATE  PROCEDURES,  WHEREAS  • 

PROCEDURE  PRUNE  HAS  FOUR.  • 

CALLED  BY:  PROCRAM  DASS  • 

ROUTINES  CALLED:  SECHENT  PROCEDURE  HODPRU  (PRUNE, HOD I FY)  ■ 

VARIABLES:  • 

USED:  CHO  (•••  UNIT  DASSA)  • 

MODIFIED:  (non*)  • 

IOOOOOOOO *•**••*•*• **••••***••*•*•••**••••**••••••••«•*•■•■•**••  •) 


/ 


PROCEDURE  PRUNE ; 


(•  SECHENT  PROCEDURE  HODPRU  •> 

/ 


(•  •  •••••••••••••••••••*•••••■•••••••*•••••■••• ';•••*• ••■■•••••••■••■ 

PROCEDURE  PRUNE  • 

USE:  USED  TO  PERMANENTLY  REMOVES  NODES  AND  BRANCHES  FROM  THE  • 
TREE  STRUCTURE.  ACCOMPLISHES  THIS  TASK  BY  LOADINC  ALL  > 
NODE  LINKINC  INFORMATION  INTO  AN  ARRAY  (PRAY),  IDENTIFIES  • 
NODE(S)  TO  BE  ELIMINATED.  RELINKS  THE  REMAININC  STRUCTURE,* 
REMOVES  THE  PRUNED  NODES,  COMPRESSES  THE  TREE  STRUCTURE  • 
SUCH  THAT  THE  NODES  PRUNED  CAN  NOW  BE  AVAILABLE  FOR  RE-  • 
ASSIGNMENTS.  AND  REWRITES  THE  TREE  STRUCTURE  ON  THE  DATA  • 
PILE.  » 

CALLED  BY:  SECHENT  PROCEDURE  MOOPRU  • 

ROUTINES  CALLED:  UNIT  DA8SA  ( PRENEX .NEXT, PRETOT, NODEDI SKTOARRAY ) • 
SECHENT  PROCEDURE  MODPRU  (VDOT, RELINK . COMPRESS . • 
REWRITE)  • 

VARIABLES:  • 

USED:  CH.KNODES, ICONT.NODE : I CELLNUMBER.NRNDICIT, DOWNLINK,  • 

CROSSLINK, BACKLINK1 .MAXARRAYS1ZE  • 

HAXNUHBEROFNODES  (•••  UNIT  DASSA)  • 

MODIFIED:  CH, I RAY, 1 , LVL ,NOEEP, FLAG  (*••  UNIT  DASSA)  • 

PRAY , PRNUM, NEWNNODES .NEWLVL  (•••  PROCEDURE  PRUNE)* 

••••••■••••••••••••••■•••••••••••■•••••••■■••••■•••••■•••■■••••«  *) 


VAR 

PRAY : ARRAY  t l . . i . 0 . .HAXNUHBEROFNODES I  OF  INTEGER; 
NEWLVL. NEWNNODES. K.FL AC I , J, PRNUM: INTEGER; 


tss 


<*  SEGMENT  PROCEDURE  HODPRU  »> 


PROCEDURE  VDOTi 

<•  mitmHituHititttmtiMttHiittitiitttfiiutMttHttt 

• 

•  PROCEDURE  VDOT 

•  USE:  THIS  PROCEDURE  DRAWS  A  DOT  AFTER  VARIOUS  FUNCTIONS  OF 

•  PRUN1NC  TO  LET  THE  USER  KNOW  THAT  SOMETHING  IS 

•  HAPPENING . 

•  CALLED  ST:  SEGMENT  PROCEDURE  HODPRU  (PRUNE) 

•  ROUTINES  CALLED:  (non*) 

«  VARIABLES: 

•  USED:  (non#) 

•  MODIFIED:  (nono) 


REGIN 

WRITE ( OUTPUT,'. •> 
END; 


(•  SEGMENT  PROCEDURE  HOOPRU  «) 


PROCEDURE  RELINK; 


•  PROCEDURE  RELINK 

•  USE:  THIS  PROCEDURE  IS  USE*  TO  RELINK  THE  TREE  STRUCTURE 

•  AFTER  DELETINC  THE  BRANCH  Of  THE  TREE  DESIGNATED  ST  THE 

•  USER.  THE  ONLY  LINX8  THAT  ARE  RELINKED  ARE  THE 

•  DOWNLINKS,  CROSSLINKS,  AND  THE  BACXLINKS .  THE  NRM 

/»  DIGITS  ARE  RE'DESICNATED  IN  THE  MAIN  BODY  OF  THE  PRUNE 

•  PROGRAM. 

•  CASES  ADDRESSED: 

•  1)  PRUNING  THE  OESCENDENTS  ONLY  OPTION  IS 

•  RE0UE8TED.  THE  DOWN  L INK <  8  >  OF  THE  NODE 

•  INPUTTED  AXE  REMOVED. 

•  I)  OPTION  N  IS  EXECUTED.  THE  NODE  INPUTTED  IS  THE 

•  LAST  NODE  ON  THE  SPAN. 

•  B)  OPTION  N  IS  EXECUTED.  THE  NODE  INPUTTED  IS  THE 

•  FIRST  NODE  ON  THE  SPAN. 

•  4)  OPTION  N  IS  EXECUTED.  THE  NODE  INPUTTED  IS  IN 

•  THE  MIDDLE  OF  THE  SPAN. 

•  CALLED  BY:  SEGMENT  PROCEDURE  MOOPRU  (PRUNE) 

•  ROUTINES  CALLED:  (nan*) 

•  VAR'ABLES: 

•  USED:  CH  (lit  UNIT  DASSA) 

•  PRtPIH  (ill  PROCEDURE  PRUNE) 

•  MODIFIED:  PRAY  <•••  PROCEDURE  PRUNE) 


BEGIN 

IF(CH*'D’> 

THEN  FRAYt  4 , PRNUMI : *0 
ELSE 

IF  ( ( PRAY 1 3 , PRNUMI* 0 ) AND< PRAY 1 3 , PRNUHI > I ) ) 
THEN 

PRAYC  3, PRAYC4 , PRNUMI 3 ' *0 
ELSE 

IF ( PRAT [ 3 , PRNUMI* I > 

THEN 

BEGIN 

PRAY! 4 ,FRAY( 4 , PRNUMI I : *PR AY( 5 , PRNUMI ; 
PRAY li.PRL/13, PRNUMI 1 : -PR AY I  4 , PRNUMI 
END 


ELSE 

BECIN 

FRAYt  4. FRAYt 3. PRNUMI)  :*PP.AVt  4. FRNUM); 


(•  SEGMENT  PROCEDURE  HODPRU  ■> 

PROCEDURE  COMPRESS; 


PROCEDURE  COMPRESS  • 

USE:  THIS  PROCEDURE  REASSIGNS  NODE  NUMBERS  TO  THOSE  NODES  • 
WHICH  REMAIN  IN  THE  TREE  AFTER  THE  INPUTTED  NODE  AND  • 

DESCENDENTS  ARE  ZEROED.  REASSIGNMENT  RESULTS  IN  THE  • 

PRUNED  NODES  8EING  FREED  TO  TAXE  ON  NEW  NODE  • 

DEFINITIONS.  THIS  COMPRESSION  IS  USED  TO  MAKE  THE  • 

HOST  USE  OF  THE  LIMITED  NUMBER  OF  NODES  (CURRENTLY  !00>* 
AVAILABLE  IN  THE  PROGRAM.  • 

CALLED  BY;  SEGMENT  PROCEDURE  HODPRU  (PRUNE)  • 

ROUTINES  CALLED;  (n«B«>  • 

VARIABLES:  • 

USED:  MNOOES  (it*  UNIT  DASSA)  * 

MODIFIED:  I  (•••  UNIT  DASSA)  • 

PRAY. J.K/FLAG1 ,NEVNHODES  (•••  PROCEDURE  PRUNE)* 

HttmtitttitmtttttmtutmittmMHtumuttittttittt  «) 

BEGIN 

FOR  I :•!  TO  NNODES  DO 
BEGIN 

IF(PRAVI2,MaO> 

THEN 
BEGIN 
J : ■!* ! ; 

FLAG1 : «0  ; 

VHILE( (J<«NN0DE3> AND (FLAG l«0> )  DO 
IF<  PRAY! I , J )»  0 ) 

THEN  J:aJ*l 
ELSE 

FOR  K:»2  TO  i  DO 
'  BEGIN 

PRAYCX,  1 1  .-aPRAYCK,  JJ  ; 

PRAYCK, J2 : *0 ; 

FLAC1 :al 
END 

END 

END; 


(•  RELABEL  THE  LINKS  *> 

I :  aO ; 

FLAG! :a0; 
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(•  SEGMENT  PROCEDURE  HODPHU  • 


REPEAT 

BEGIN 

!:•!♦»; 

IF ( PRATC  2 .  I  laO )  THEN  FLACl:al 
END 

UNTIL (FLAG 1  at )  ; 

NEVNNODES : ■ I -  I ; 

FOR  I :a|  TO  NEVNNODES  DO 

FOR  <I:al  TO  NEVNNODES  DO 
FOR  R:a<  TO  i  DO 

IF  (PRATER.J2apftATE2.il) 
THEN  PRATER. Jl:aPRATEI. II j 


(•  SEGMENT  PROCEDURE  MODPRU  •> 


PROCEDURE  REWRITE; 


PROCEDURE  REWRITE 

USE:  REWRITES  THE  PRUNED  TREE  DAT*  SACK  TO  THE  DISK  riLE. 
CONSERVES  INFORMATION  THAT  WAS  PRESENT  WITH  THE  NODE 
PRIOR  TO  PRUNING.  RATIONALES  ARE  ALSO  CONSERVED. 

ALL  NODES  NOT  IN  THE  NEW  TREE  STRUCTURE  ARE  ZEROEO  AS 
IN  A  NEW  PILE. 

CALLED  BY:  SEGMENT  PROCEDURE  HODPRU  (PRUNE) 

ROUTINES  CALLED:  <«!•*•> 

VARIABLES: 

USED:  NNODES.NAESYSTEMS  (•••  UNIT  DASSA) 

MODIFIED-  I .NODE! CELLNUMBER, NRNDICIT, DOWNLINK, 

CROSSL INK , » ACKL I NX, NODETITLE , RELWEI CHT, 
CUMWEICNT.SYSTEHVALUES, RATIONALE I 
(■••  UNIT  DASSA) 

NEWMMODES.J  <•••  PROCEDURE  PRUNE) 


FOR  I:. I  TO  NEWMNOOES  DO 
BEGIN 

SEEK(NODE,PRAYC  J,  ID  ; 

CETINODE ) ; 

WITH  NODE*  DO 
BEGIN 

CELINUMEERTb! ;  NRNDICIT: ■PRAY! 3,1); 

DOWNLINK : -PRAYM ,11;  CROSSLINK ; »PRAYI 5 , II ;  BACKLINK : -PRAY t i .  I ) 
END; 

SEEK(NODE , I )  ; 

PUT! NODE ) 

END; 

WITH  NODE*  DO 
BEGIN 

NODETITLE:- 'BLANK 

CELLNUM8ER : -0 ;  NRNDICIT:. D;  DOVNL!NK:-0; 

CROSSLINK : -0 ;  BACKLINK: -0;  RELWEIGHT : -0 . 0 ; 

CUMVEICHT: -0.0; 

FOR  J:-I  TO  MAXSYSTEMS  DO  SYSTEMVALUESI JJ : -0 ; 

RATIONALE:- 'NO  COMMENT' 

END; 

FOR  J : -NEWNNODES* 1  TO  NNODES  DO  PUT(NODE); 


<•  SECHENT  PROCEDURE  MODFRU  •> 


•  BEGIN  PROCEDURE  PRUNE 


BEGIN 

REPEAT 
■  ECIN 

FACE (OUTPUT) ; 

WRITE (OUTPUT. 'N(ODE*DOVN  D( OWN  ONLY  E(IIT'); 
REPEAT 

UNTIL  KEYPRESS; 

READ! INPUT. CM) 

END 

UNTIL  <  C  CH« ‘N* )OR ( CHa • D* )OR(CHa • E ' >  > ; 

IFICHO'E* ) 

THEN 

BEGIN 

EOR  I :>1  TO  NNODES  DO 
RECIN 

SEEK  NODE,  I ) ; 

CET(NODE) ; 

WITH  NODE a  DO 
BEGIN 

PRAYCI.IJal; 

FRAY! 2,11: -CELLNUHBER ; 

PR AY (3. 1 1 : ■NRNDICIT; 

PRAYM.il:  ■  DOWN  LINK ; 

PR AY IS, I) : "CROSSLINK ; 

PRAYU.il  i.BACKLINK; 

END 

END; 


WRITE  LN<  OUTPUT); 
PRENEZ; 


IP ( ( I RAYtLVL , 3 IaO ) AND( CH» ' D’ ) ) 

THEN 

BEGIN 

VRJTEDMOUTPUT, 'YOU  CANNOT  PRUNE  A  DATA  NODE  WITH'); 
WRITELN(OUTPUT, ' A  DOWN  ONLY  OPTION  .  .  '); 
WRlTELMtOUTPUT, 'PRUNE  TERMINATED  .  .  .'); 
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I*  SEGMENT  FROCLDURE  MODPRU  • 


WR1TELNI OUTPUT,  '  <ANY  KEY)  CONTINUE* >; 

REPEAT 

UNTIL  KEYPRESS; 

READt INPUT, CHI ; 

CH:a*E* 

END; 

IP  (CKO  '  E  ‘  ) 

THEN 

IECIN 


WRITE IOUTPUT, *  PRUNING .  * ) ; 
PRNUN : ■ I  RAY  I IVL , 0 1 ; 


RELINK; 

VDOT; 


IF (CH« 'N ' >  THEN  PRAY 1 2 , PRNUK1 : -0 ; 
NEIT; 

VDOT; 

WHILE  (ICONTOO)  DO 
BEGIN 

PRAY! 2 , I RAY £ IVL , 0) I : «0 ; 

NEXT 

END; 


WDOT; 

(t  HRN  ADJUSTMENT  •) 

IFICHa'N* I 

THEN 

BECIN 

I : aPRAYt  3 , PRNUM1 ; 

WHILE (IOO)  DO 
IECIN 

PRAY I  3,11 :aPRAYI 1 ,11-1; 
I -aPRATC J, 1 1 
END; 

•END; 

WDOT; 


ISt 


COMPRESS; 


(•  SEQUENT  PROCEDURE  HODPRU  *5 


VDOT; 

*1 WRITE; 

VDOT; 

NNODES ; ■NEVNN0DE8 


KNO; 


END; 


NEVLVL: ■! ; 

PRITOT; 

REPEAT 

BEGIN 

IF(LVL>N£VLVL>THEN  NEVLVL: .LVL; 

NEXT 

END 

UNTIL! ICONTaO ) ; 

NDEEP : bNEVLVL ; 

VDOT; 

FOR  1 :■!  TO  HAXARRATSIZE  00  IRATII ,01 :-0; 
LVL ; ■ 1 ; 

SEEK (NODE, 1 ) ; 

CET(NODE); 

NODED I SKTOARR AT ( LVL ) ; 


PLAC: ■! 


END;  <*  END  OF  PRUNE  «) 


(•  SEGMENT  MOCtOURE  HODPRU 


PROCEDURE  MODIFY; 


PROCEDURE  MODITT  • 

USE:  PROCEDURE  SUPPORTS  OPTION  MOD.  ELICITS  NODE  REFERENCE  * 
NUMIER  FROM  THE  USER.  IT  THE  NODE  CZISTS,  ONLY  THE  * 

LABEL  OF  THE  NODE  IS  CHANCED.  IF  THE  NODE  DOES  NOT  • 

EE  1ST,  A  NEW  BRANCH  IS  CREATED  TO  THE  NODE.  IF  NO  ■ 

SPANS  EE  1ST  TO  THE  INPUTTED  NODE,  A  SINCLE  NODE  SPAN  • 

IS  CREATED  AND  HAS  A  NRN  NUMBER  OF  ONE  ON  THE  LEVEL  * 

RECARDLESS  OF  VHAT  WAS  INPUTTED  (THIS  IS  PRIMARILY  * 

TO  INSURE  ACAINST  PROGRAM  FAILURE  IN  SUBSEQUENT  • 

PRUNING  OPERATIONS) .  • 

CALLED  BY:  SEGMENT  PROCEDURE  MODPRU  * 

ROUTINES  CALLED:  UNIT  DASSA  (NODEARRAYTODISK , NODIN)  • 

VARIABLES:  • 

USED:  NLVLB,T£NSTRINC, ICONT  UNIT  DASSA)  • 

MODIFIED:  I RAY, LVL ,ND£EP, L , IF ADD, IFIND.NNODES,  • 

ANSWER, NODE LABEL, ARAY.VRAY  (•••  UNIT  DASSA)  ■ 
I QUIT  (>••  PROCEDURE  MOCIFY)  • 


VAR 

IQUIT: INTEGER; 

BEGIN 

IQUIT:. 0 ; 

REPEAT 

BEGIN 

NODIN; 

IFIHLVISU) 

THEN  IQUIT: ml 

ELSE 

BEGIN 

VRITE(OUTPUT, 'LABEL?  •>; 

READLN< INPUT, ANSWER) ; 

I T ( ( ANSWERa 1 ' ) TR ( ANSWER* ' DONE ' ) > 

THEN  IQUIT: -1 

ELSE 

BEGIN 

ANSWER : .COPY ( CONCATI ANSWER, TENSTRINC ) . 1 , 1 0  > ; 
IF(ICONT.I) 

THEN 

BEGIN 

NODELABEL t  LVL 1 : .ANSWER; 

SEEK < NODE, IRAYt LVL, 0) ) ; 


NODEARRAYTODI SRC LVL) i 
PUTCNODE) 

END 


(•  SEGMENT  PROCEDURE  MODPRU  • 


ILSI 

IKCIM 

L..2-1TADD; 

IFIND:.IRAYCLVL,03; 

REPEAT 
•EC  IN 

NNODES:.NNODES«l ; 

IRAYCLVL, IF ADD] : .NNODES; 

•  E EEC NODE , IRAYCLVL, 0 1 ) ; 

NODEARRAYTODI SR < LVL > ; 

PVTCNODE) ; 

LVL : •LVL* L; 

IRAYCLVL ,  01 : .NNODES ; 

IF(LaO)  THEN  I RAY t LVL ,11: .IRAYCLVL ,11*1 
ELSE  IRAYCLVL, 11 :■!; 

IRAYCLVL, 21:. 0; 

IRAYCLVL,)! :.0: 

IRAYCLVL. 11.IFIND; 

IRAYCLVL, 51. iriND; 

YOR  1-1  TO  2  DO  ARAYCLVL, 1 1 : .0 ; 

YOR  I :.I  TO  NSYS  DO  VRAYCLVL , I 1 : .0 . 0; 
NODELABEL [ LVL1 : ■ ANSWER; 

SE EEC NODE, IRAYCLVL, 01 ); 

NODEARRAYTODI SEC  LVL) ; 

PUTCNODE); 

I FADD :  .2  ; 

IF1NO:.NNODES; 

L:  .1 
END 

VNTllCLVD.NLVLS) 

END 

END 

END 

END 

VNTILC 10UIT>Q) ; 

I F ( LVL >NDEEP >  THEN  NDEEP: .LVL; 

END;  (•  END  MODIFY  •» 
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<*  SECHENT  PROCEDURE  HODPRU 


•  ■ItlllHIItttllttHlllltltMMltltl, 
IECIN  SECHENT  PROCEDURE  HOCPRU 


•XCIN 

irtCHO-'PRU1 >  THEN  PRUNE 
ELSE  If (CMDb'HOD' )  THEN  NODI  FT 
END; 


til 


t*  PROCRAH  DABS  »> 

PROCEDURE  STAT; 


PROCEDURE  STAT 

USE:  PRESENTS  INFORMATION  ON  THE  CONSOLE  CONCERNING  THE 
NUHIER  OF  NODES  IN  THE  SYSTEM,  THE  NUMBER  OF  LEVELS 
IN  THE  SYSTEM,  AND  THE  NUMBER  OF  ALTERNATIVES  IN  THE 
SYSTEM. 

CALLED  BY:  PROGRAM  DASS 
ROUTINES  CALLED:  <«on«) 

VARIABLES: 

USED:  NNOOES ,NDEEP ,NSYS  <•••  UNIT  DAJSA) 

MODIFIED:  CH  <■••  UNIT  DASSA) 


SEC  IN 

PAGE (OUTPUT) ; 

VRITE LHC  OUTPUT , 'NUMBER  OP  NODES  ‘.NNODES); 
VRITELNC OUTPUT. 'NUMBER  OF  LEVELS  *,NDEEP>; 
WRITELNI OUTPUT, 'NUMBER  OF  SYSTEMS  •,NSYS); 
VRITELN(OUTPUT) ; 

WRITELH( OUTPUT,  '(ANY  KEY)  CONTINUE' >; 

REPEAT 

UNTIL  KEYPRESS; 

READ(CM) 

END; 


(•  PROOF  AM  DASS  •) 


•  I'niitmittiitiittatiMiiitiiitittitiiMattiiiiiiiitiiiitui 

* 

BEGIN  PROGRAM  DASS  • 

aaaaaaaaaaaataaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  *) 
COIN 

COMMENT STR t  HC : «CONCAT( TENSTR I NG , TENSTR I NC , TENSTR INC. 

TENSTR I NC , TENSTR I NG .TENSTR I NC  > ; 

LAREISTR INC:. TENSTR INK; 

ft AC: .Si  NSYS:-2;  NPLAC:.0;  NDEEP: .0; 

IRAYU.1):.2;  CHD:«'SEL'  ; DUMMY; 

REPEAT 
ICC  IN 

PACE  (OUTPUT) ; 

WRITE th. OUTPUT. 'ATT  DIS  DON  HOD  NEW  NUM  PRU  REV  SEL  ’); 

WRITE  IN  (OUTPUT, ‘SEN  SPA  STA  STS  TTL  VVC); 

VRITE(OUTPUT. ’OPTION)  •); 

READLNf INPUT, CMD) ; 

I P ( CMO. ’ ATT  * )  THEN  DUMMY 

RtSE  if(CMD.'DlS')  THEN  NUM 

ELSE  If < CMD. ’MOD* )  THEN  MODPRU 

CISC  IFtCMD.’HEV* )  THEM  DUMMY 

ELSE  IF< CMD. 'NUN*  >  THEN  NUN 

ELSE  1F(CMD.’ PRU’)  THEN  MODPRU 

ELSE  If ( CMD. ' REV )  THEN  NUM 

ELSE  If (CMD.’ SEL ‘ )  THEN  DUMMY 

ELSE  If ( CMD. ’SEN’ >  THEN  SENSITIVITY 

ELSE  IF( CMO. ' SPA' )  THEN  DUMMY 

ELSE  IF( CMD. ' STA ' )  THEN  STAT 

ELSE  IF ( CMD. ’ SYS • )  THEN  READSYSTEMLABELS 

ELSE  IF( CMO. 'TTL * >  THEN  DUMMY 

ELSE  IF(CMD.'WC’)  THEN  WVIOAD 

END 

UNTI L ( CMD. ' DON ' ) ; 

SEEK(NODE.O) ; 

CET(HODE); 

WITH  NODEa  DO 
BEGIN 

RATIONALE: .TITLE ;  NOUETITLE : -LATT; 

CELLNUMBER: .NNODES;  NRKDICIT: -NDEEP; 

DOWNLINK : -NSYS ;  CROSSLINK: -FLAG 

END; 

SEEK(NODE.O)-;  PUT(NODE) ; 

CLOSE (NODE ,  LOCK);  CLOSE ( SYSTEMS ,  LOCK); 

END.  (*  END  OF  PROCRAM  DASS  *> 


US 


OitU  >.  Im  «u  bora  lit  ralaod  In  Chicago,  Illinoia.  Ha 


roooirod  a  lichtUr  «(  Selcnco  Icn  tho  Itlinala  Inatitata  ol 

Ttnkttlogt  in  Ckialttl  Inginaarlng  in  Jnna  1971.  Ka  raaaioad  hit  Alt 
Faroa  oonmiaaion  through  KOTC,  and  oorrod  (ton  Baptanbar  1171  to  Kay 
1994  in  tha  KIKVTCHAN  Hlaailt  Ceabat  Craw  Faroa  at  Vhitaman  Air  Fotoa 
Baaa,  Hiaaaari.  Daring  thia  lino,  ka  raeaioad  hit  Kaatars  in  Baalnaaa 
Adatniit ration  (roa  tha  Unitoraity  of  Hiaaoari.  Ha  than  aaroad  froa  Kay 
1974  aatil  hia  antry  into  tha  School  of  Cnginaoringt  Air  Faroa  tnatitata 
of  Taohnolagy  aa  a  proiaot  aanagar  and  aaotlon  chiaf  at  tha  Air  Faroa 
Bookat  Prapolalon  Laboratory,  Bdwarda  Air  Foraa  Baaa,  California. 


END 
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